ANO I N 2 05 

Cz$ 1.150,00 
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A NEMESIS INFOEMATICA estS 
lAHC and. o ma i s uma ilrlt i ne'd i - 
ta de prosiramas alvic inantes e 
1 O y. MAC I ONAI S para o seu MSX ! 



MSX in-.UA) 



O SISTEMA OPERACIONAL HELLO 
c h. e * o u para sviprir todas as n e 
cessidades d o s utuHriOl d e dri 
ves com o MSX. O HELLO possul 
r e c 1.1 r s o s i m e'd i t o s COltiO for ma t a 
C a o p e r s o na t i z a d a por s i s t e ma 
d. e labels , rec uperacao dt dis- 
cos com ebbos DE EvS, testes de 
at in Ha m e n t o radial d e drives e 
testes d e HARDWARE , aum de to 
das a s f uncots d e s i s t e ma c o m 
maior rapidez e conf iabiUdade 

Ap ena s em disco, com manua L 
detauado por cz* e.200,oo. 



msx TTiitito si»i:i:i» 



Este utilitario, de extre ma 
s i mp t i c i d a d e d e o p e r a g a o .. p o d e 
a c e t e r a r em ate SO v e z e s o seu 
P r o si r a ma e m BA3 IC o u L i n .-feu a si e m 
d e Ma -q u i na . p o d e s e r f ornacido 
em ctrtucho por c z * 12.000,00; 
o « na v e r s a o d e disco OU f i ta 
por apenas Cz* 5 . SOO , oo . 




Jfli: HOIiTALSltl M«»» 



Para q.uem na o safoe 
JOE KOWALSKI e ' O 

protagonista dos 

ma i s f a n t a s t i c o s 

j oSos J a " c r i a d o s 

para o s microcompu 
t a d o r e s MSX . 

os •:* u e . j a ' p o s s u e m o s . j o — 

a primeira serie f HAUNT ED 

PINBALL BLASTER, BLOW-UP 

T BLASTER) , a NEMESIS es- 

ncando a segunda serie de 

VORTEX RAIDER, Ulft super 

espacial; HABTLIT , tim jo 

mu i ta e s t ra t e si i a e mu i ta 
e MAZE MASTER, uma aventu 
n t a s t i c a no Ubirinto. Pa 
em a i nd. a na o p o s s u e , est a" 

si r a nd e o p o r t u n i d a d e : 

Serie JOE KOWALSKI r. time ro X: 

em disco - Cz* 7 . OOO , DO 

JOE KOWALSKI ntiniero 2: 

em disco — C z * 6.000,00 



Para 
HO S d 
HOUSE 
e GUT 

t a u 

. j o si o s 
duel o 
Sio d e 
a c a o 
ra f a 
r a <* u 
e ' a 



Ap ena 
Se'ar i e 

Ap ena 
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LTm s enc a c i ona t 


pro sir a ma 


de 


AGENDA. DIARIO e 


LISTA TELEEO- 


mica, totatmente 


i c onograf 


i C O 


e s i mp tes de se v 


sa r . P o s 


SU i 


ainda um CALENDAP.IO PERPETUO, 


CALCTJLADORA e recur sos de p 


r o — 


cura lo'tica entre 


dados e 


da- 


t a s . O p r o si r a ma 


perfeito para 


seu d i a - a - d i a d e 


X999. 




Ac ompanKa o pro sir a ma, um 


rn a 


nual de tat ha do e 


u m disco 


c om 


a P r o sir a ma c a o do 


a n o que v e m . 


Ap ena s em disco - 


Cz * 5 . 600 


, OO 
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Esta pagina da reuista CPU iiiforhatica foi 
totalMente coaposta no sistena "DesKtop-pubLi- 
shing", a uLtiMa nouidade en software de H5X. 

HSX PAGE HAKER f UN software IW« nacio- 
naL, desenuoLuido por ALewandre Cruz e eiuipe 
da I1EHESI5 K1F0RMATICA. 

TotalMente coNpatioel con o 6RAPH0S III dt 
Renato Degiouani, a niuel de alfabetos, shapes 
e teLas, ale'N dos acessorios desenooLoidos pe~ 
la NEMESIS : 

PAGE MAKER EOMTES No I 

e 
PAGE MAKER EOMTES NO 2 

Alfabetos ine'ditos para uso con o HSX PAOE MA- 
KER, URAPHOS III e outros softs coHpatiutis. 

PAGE MAKER CARTOONS No I 

Una colecao de shapes e figures ineditas para 
coMpor suas pgginas graficas ou seus desenhoi, 
incluindo xoLduras, figures huManas, uinhttas, 
ueicuLos e apliques decoratioos. CoNpatioel 
CON HSX PACE HAKER e 0RAPH03 III. 

ACESSORI OS "MS - DEST AQUE " 

os acessorios da Linha HS DESTAQUE tanben sao 
coapatioeis com o HSX PA6E MAKER. Se uoce ain- 
da nao possui estes "best-sellers", aprooeite 
a ocasiao. Sao telas, alfabetos e shapes. 

TABELA DE PP.ECOS : 

HSX PhSE MAKER 1.0 CIS 7.200,00 

HSX PASE MAKER F0I1TES 1 Cz$ 6.200,00 

MSX PASE MAKER FOnTES 2 Cz$ $.200,00 

M5X PASE MAKER CARTOOnS 1 Cz$ «.200,00 

MSX PASE HAKER KIT: Incluindo o HSX PASE MAKER 
os F0I1TCS 1 e 2 e CARTOOnS 1 - Cz$ 20.000,00 

SRAPH05 III uersao 1.3 2 OTA 

ALFABETOS nunero 1 1 OTR. 

SHAPES nunero l l can 

TELAS nuMero 1 1 OTn 



LTm p 
d e si r a 
e s t a t i' 
i n e'd i t 
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Em d i S 



MSX rilA.lt T 



rosirama ieranc iador 
ficos comerciais e 
sticos com recursos 
os sot-re os prosira- 

fenero existentes 
o. Compativet com 
PAGE MAKER possibi- 
o a producao de r e - 
o s i mp r e s s o s com at 
a qual idade. 
co por Cz* 5 . eoo , oo 
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Para obter infor ma (fits 
ma i s d e t a t ha d a s s o b r e n o s 
sos p r o d u t o s entre em con 
t a t o c o n o s c o : 

NEMESIS INEORMATICA LTDA . 

Caixa postal 4563 
Cep-SO.OOl Rio de Janeiro 

o u p e t o t e t e f o n e : 



o u v e n ha p e s s o a t m e n t e a o : 

"SHOW-ROOM" NEMESIS 
Bua Sete die Setembro rt 9 2 

sala 1910 Centro - BJ/BJ. 
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CPU e uina publicacao da Aguia Informalica. 

Todos os direiios rcservados. Proibida a 

rcproducao parcial ou total do conteudo desta 

revista por qualquer meio scm autorizacao 

expressa da cdilora. 

Os artigos assinados sao de total e unica re 

sponsabilidade dos aulorcs. 

Os circuitos, dispositivos, compocntes, etc., 

descritos na revista podem cs tar sob a protecao 

de patentes. Os circuitos publicados so 

poderao ser confeccionados sem qualquer fim 

lucrativo. 

Os programas apresentados aos lcitores, 

mesmo se fomecidos em disqutc, sao de pro- 

priedade dos autores, cabendo a eles todos os 

direitos previstos em lei. 



EDITORIAL 

O ano de 1988 esia chegando ao final c, apesar de ter sido 
um anocheio de surpresas economicas e polflicas, na area do MSX nao 
podemos verificar lancamenlos de hardware por parte dos fabricantes 
que lancaram o padrao no Brasil e que anunciaram uma serie de 
perifericos para a linha. O lancamento de perifericos ficou a cargo de 
empresas que acreditam no dcsenvolvimento do MSX no Brasil. 

Na £rea de software podemos dizer que o mercado esia a 
pleno vapor, com Concursos dc Software e lancamento de programas 
novos, descnvolvidos no Brasil, visando a atender as as nossas neces- 
sidades e de acordo com as caracteristicas tecnicas dos equipamentos 
brasileiros. 

A area editorial tamb6m vem apresentando um desen- 
volvimento significati vo, com lancamento de livros de cxcclcntc quali- 
dade c conteudo praticamente todos os meses. 

No numero anterior de CPU, tivemos alguns problemas 
com a grafica que efetuou a impressSo da revista. Algumas falhas 
tambdm foram constatadas nas listagens, isto porque, a partir do quarto 
numero, toda a diagramacao passou a ser feita atrav6s de processo 
clclronico, inclusive as listagens que rcccberam tratamento identico ao 
texto. A partir deste niimcro continuamos a utilizar processos 
clctronicos para a diagramacao da revista, sendo que as listagens dos 
programas utilizadas foram impressas em uma impressora comum. 
Neste numero publicamos novamente as listagens do numero anterior 
que podem ter ocasionado dificuldades na leilura. 

Aproveito a oportunidadc para, cm nome de toda a equipe 
dc CPU, desejar um Feliz Natal e Prospcro Ano Novo. 

Nos encontraremos novamente em Janeiro, no sexto 
numero dc CPU, que continual crescendo como sem pre. 

GONCALO MURTEIRA 
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MSX NEWS 



NEWSOFT. 



NASHUAi 



MSX WORD 



A Newsoft, emprcsa pioneira 
no Rio dc Janeiro em distribuicao dc soft- 
ware para a linha MSX, baseada em uma 
nova polilica empresarial, lanca cm lodo o 
Pais o I Concurso Nacional de Software, 
para MSX, com o intuilo de descobrir e 
revelar novos talentos no mercado de soft- 
ware. 

O evenio conta com o apoio do 
CartSo Nacional, que far£ a distribuicao 
dos prcmios aos ganhadores. 

Todos os detalhes do concurso 
podcm ser encontrados neste niimero de 
CPU. 

A Newsoft lambSm esta ven- 
dendo diversos pcrifdricos para a linha a 
MSX com a vanlagem de o cliente poder 
pa gar com o seu Cartao Nacional, lendo, 
portanto, ate" 30 dias para pagar. 

Esla vantangem tambem 6 ex- 
tcndida para a compra de jogos e aplicati- 
vos. 

Em breve, a Newsoft csiara em 
novo endereco, com modemas instalacoes, 
aprimorando o atendimento e a qualidade 
que sempre dispensou a sua clicniela. 



A Nashua iniciara, em breve, a 
producSo de disquctcs de 5 1/4" no Brasil, 
visando a atender o mercado nacional. 



EDITORA ALEPH +50 DICAS 

Ser& lancado, pela Edilora 
Aleph, dc S3o Paulo, o livro "+50 DICAS 
PARA MSX". 

O livro vcm a atender pedidos 
dos lcitores do "CEM DICAS PARA 
MSX", que 6 urn dos livros indispensaveis 
para quern tern MSX e programa, e apre- 
senta 50novas rotinas que poderao ser utili- 
/.adas pelos programadores. 

Alem de apresentar os pro- 
gramas, os autores fazem uma descricao 
complcta dc como chcgaram aquele pro- 
grama, lornando, assim, muilo mais facil a 
asimilacao por parte do lcitor da ideia do 
autor e facilitando o seu uso posterior. 



TELCON - MODEM DE DISCAGEM 
AUTOMATICA 

Foi lancado pela Telcon 
Telematica, empresa de Porto Alegre, que 
lancou, ja h£ algum tempo atras o Multi- 
modem, um modem de discagem 
autom£tica. O produto estard brevemente 
disponi'vel nos revendedorcs autorizados 
da TELCON. 

Os modens da Telcon perm item 
a conexSo do MSX com o Videotcxto, 
Cirandao e comunicacao Micro a Micro, 
possuindo software, desenvolvido pela 
propria empresa, podenclo ser ulilizado 
tanto pelos usuarios de unidade dc disco ou 
fita. 



NEMESIS 

A Nemesis esta lancando uma 
sdric dc programas aplicativos novos , dos 
quais podemos destacar o Page Maker, o 
Portfolio, que vem a ser uma agenda com- 
putadorizada, com calendario perp6tuo c o 
Hello, que vem a ser um sistema opcra- 
cional que simplifica lodas as funcocs de 
operacao com disco, possuindo amda testes 
de Hardware, tais como: velocidade de 
rotacao de drive, alinhamento radial de 
cabecote, teste de RAM c VRAM, mos- 
trando o mapa de ocupacao do disco e 
diversas oulras func5cs. 
O telefone da Nemesis 6(021) 222-4900 

CHAMPION SOFTWARE 

A Champion Software, emprcsa 
Paulista da area de software, esla de 
mudanca marcada para breve. 
O novo endereco da Champion sera: 

Rua Clelia 1837 
Lapa - Sao Paulo - SP 



A Ciencia Modcrna acaba dc 
lancar o livro "MSX WORD - das versoes 
1.6 a 3.0", de autoria dc Sdrgio Guy Pin- 
heiro Elias e Paulo Roberto Pinheiro Elias, 
autores do Livro "dBase II Plus para 
MSX", tambem da Ciencia Modcrna e ja 
analisado em CPU. 

O MSX Word vem sendo desen- 
volvido pela Cibcrtron, que lancou ha 
pouco tempo a vcrsao 3.0 (veja CPU 
numero 04) c , scm sombra dc diivida , 6 
o processador de lexto mais ulilizado pe- 
los usuarios do MSX , sendo baseado no 
TASWORD, da Tasman Software Ltd. 

Neste livro, os atorcs publicam 
as especificacSes tecnicas mais importan- 
tes e uma documentacao complela de como 
adaplaroMSX-WORDdcqualquervcrsao 
as caracicristicas da imprcsora do usuario. 

Dc nada adianla ter um ex- 
cclcnte software se n3o sabemos os scus 
comandos e de como procedcr para tirar o 
melhor proveito do programa e ter um 

rendimentode 100%. 

Da forma que o livro & apresen- 
tado subslitui com inumeras vantagens o 
manual que acompanha o software e, cer- 
tamente, 6 um investimento que sera rapi- 
damente recupcrado. 

A Ciencia Modcma fica siluada 
a Av. Rio Branco 156 loja 127 Rio de 
Janeiro - RJ - 20043 - Telefones: 021- 
262.5723 e 021-240-9327 - atendendo a 
pedidos de todo o Brasil, possuindo, alem 
deste, todos os demais livros disponiveis, 
atualmente, para MSX. 



UM TECLADO INTELIGENTE 
PARA O MSX 



P1ERLVIGI PIAZZI . 
MILTON MALDONADO 



Uma grandc quantidadc dos aluais usuarios dc MSX se 
iniciou no mundo da informatica com um pcqueno Sinclair (TK 82, 
TK 85 ou CP 200). 

Assim scndo, as comparacocs s3o inevitaveis. O MSX, 
obviamcntc, ganha de longe, por ser uma maquina de muilo maior 
portc e rccursos. Apesar disso, alguma saudadczinha do pcqueno 
SINCLAIR ainda sobra, pois, com uns miseravcis 8K de ROM 
(comparados aos 32K da ROM do MSX!) fazia algumas coisas que 
o MSX n3o faz. Uma delas, por cxcmplo, era a podcrosa funcao 
VAL. 

No MSX, a siring que serve dc argumento ao VAL deve 
conter cxclusivamentc caracleres de algarismos (os oulros sao 
ignorados). No SINCLAIR ela pode comer qualquer coisa (al- 
garismos, variaveis, f6rmulas, etc), de maneira a subslituir, com 
vantagem, o comando DEFFN. 

O MSX, cm compensacao, 6 uma maquina vcrsaul. T3o 
versaul a ponto dc poder ser configurada para poder fazcr coisas 
para as quais n3o foi projeiada. 

Ela e a concretizacao do sonho de qualquer programa- 
dor (especialmente em Basic e Assembly). S6 para exemplifies, 
desenvolvemos uma rotina que permite emular os recursos do 
VAL do SINCLAIR no MSX e que sera brevemente publicada no 
livro "+50 dicas para MSX". 

Esla versatilidade pode chegar as raias do absurdo: num 
ataque dc exiremado saudosismo, os programadores de uma 
soflhouse, a XSM (at6 no nome fazem o MSX plantar bananeira!) 
dcscnvolveram um EMULADOR SINCLAIR, programa que sim- 
plesmente transforma o MSX nun SINCLAIR, lendo e rodandoas 
f itas de toda uma biblioteca de programas que estava mofando em 
alguma gavela esquecida. 

Dcntro desla onda de "saudosismo", rcsolvemos 



escrcver esta materia: uma das queixas dos "sinclaristas" em 
relacao ao MSX e referentc ao tempo de digitacao de longos 
programas em BASIC. Afinal de contas, no SINCLAIR bastava 
apertar uma tecla (ou uma combinacao de teclas) para que na tela 
aparecesse toda a palavra reservada. Sc, no comeco dc uma linha 
de BASIC, digitassemos Y, aparcccria o RETURN, enquanto que 
no MSX 6 necessario digitar letra por lctra: R-E-T-U-R-N. 

O problcma 6 parcialmente contomavcl se atribufmos 
as teclas de funcao (Fl a Fl 0) as palavras rcservadas mais frequen- 
les. Assim mesmo, estaremos limitados a apenas 10. 

Porque nao aprovcilar a versatilidade do MSX para 
configurar scu teclado de maneira a emular o do SINCLAIR. 

Aprovcitando a tecla SELECT do Expert (SLCT do 
Hotbil), que nao 6 usada quando sc esta no modo edicao de um 
programa em BASIC, claboramos uma rotina cm Linguagem de 
Maquina que reconfigura o teclado de maneira a produzir uma 
palavra reservada toda a vez que a tecla Select c prcssionada 
simultancamcnte a de uma lctra. As combinacoes que geram as 
palavras rcservadas estao listadas na figura 1 

Esta rotina foi incialmentc publicada no livro "100 
DICAS PARA MSX", na pagina 15, lendo sido introduzidas, 
apenas, algumas pcqucnas modificacoes para rcduzir as chances 
de crro na digitacao. 

Digite, portanlo, o programa da figura 2, tomando 
bastante cuidado com os codigos hexadecimais das linhas DATA. 

Como o programa n3o 6 muito curto, grave -o 
pcriodicamente, durante a digitacao, para n3o perder todo o tra- 
balho cm caso de falta de encrgia cldtrica (ou sobrinhos irriquictos 
tropecando no fio da tomada!). 

Quando o programa estiver pronto c gravado, digite 
RUN. 
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MSX 

CENTER 




GAMA SOFTNEWS. Aqui tern ludo o que Ihe intetessa sobre seu 
MSX Notfcias sobre o CURSO GAM A DE BASIC, o 1 ° rurso de Basic 
por correspondent do Brasil. GAMA TELESOFT, saiba como rece 
ber pela GAMA SOFTWARE os seus programas gravados em disco, 
alraves do telefone. GAMA HARDWARE, como adquitir toda a linha 
de perifericos e suprimentos para o seu MSX. atraves do correio. E a 
linha pioneira de programas para MSX e para oMSX-2. que assim co- 
mo o GAMA TELESOFT e uma inova^ao exclusiva da sua GAMA 
SOFTWARE. 



^> ry ATf C| Solicite assinatura 
Vj iViV I l^j ,do nosso cat a logo! 



Preencha o cupom abaixo e remeta para 

Gama Software Ltda. Caixa Postal 94368 CEP 25800 

Tres Rios RJ Tel (0242) 52 0687 



NOMt . 



EMDERECO. 

BAIRRO 

CIDADE 



DATA _.;._ ( _ 



ASSINAIURA . 
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L=12:SCREEN 0:WIDTH 40 

FOR E=«HD000 TO SHD1D7 

S=0 

FOR X=E TO E+7 

READ C4:Y=MAL("8H"+C5) 

S=S+Y 

POKE X,Y 

NEXT X 

L=L+i 
PRINT USING"HH";L;:PRI 

RINT USING"»tt««";S;:PRI 
NEXT E 
GOTO 73 

DATA 2i,9B,Dl,CD,CE,Di 
DATA D0,22,A5,FD,3E,C3 
DATA FD,AF,32,D7,Di,C9 
DATA D7,Di,A7,79,20,05 
DATA 28,49,C9,FE,4i,38 
DATA 5B,30,08,D6,40,47 
DATA D0,18,0E,FE,6i,38 
DATA 7B,30,29,D6,60,47 
DATA D1,7E,A7,23,20,FB 
DATA 3E,C9,32,A4,FD,7E 
DATA 06, CD, A2, 00, 23,18 
DATA C3,32,A4,FD,AF,32 
DATA Ci,C3,DA,08,4F,AF 
DATA Di,79,C9,3E,FF,32 
DATA AF,C9,00,4E, 45,57 
DATA 45, 45,50, 00,43, 4F 
DATA 00, 44, 49, 4D, 20, 00 
DATA 4D,20,00,46,4F,52 
DATA 47,4F,54,4F,20,O0 
DATA 53,55,42,20,00,49 
DATA 55,54,20,00,4C,4F 
DATA 20,00,40,49,53,54 
DATA 4C,4C, 49,53,54,20 
DATA 4F,54,4F,52,20,00 
DATA 58, 54, 20, 00, 50, 4F 
DATA 20, 00, 50, 52, 49, 4E 
DATA 50,53,45,54,20,28 
DATA 55, 4E, 00, 53, 41, 56 
DATA 00,54,52,4F,4E,00 
DATA 20, 00, 43, 4C, 53, 00 
DATA 45,53,45,54,20,28 
DATA 4C, 45, 41, 52, 00, 52 
DATA 55,52,4E,00,45,4E 
DATA 00,46,52,45,28,00 
DATA 4B, 45, 59, 24, 00, 44 
DATA 46, 28, 00, 41, 54, 4E 
DATA 54, 41, 4E, 28, 00, 53 
DATA 28,00,41,42,53,28 
DATA 51,52,28,00,41,53 
DATA 00,56,41,40,28,00 
DATA 4E, 28, 00, 55, 53, 52 
DATA 2E, 31, 34, 31, 35, 39 
DATA 2i,00,4E,4F,54,00 
DATA 45, 4B, 28, 00, 54, 41 
DATA 00, 53, 49, 4E, 28, 00 
DATA 54,28,00,53,54,52 
DATA 47, 24, 28, 00, 52, 4E 
DATA 00,43,48,52,24,28 



STEP 8 



NT"="j 
NT" "i 



,21,16 
,32,A4 
,4F,3A 
,FE,18 
,3D,FE 
,21,72 
,2D,FE 
,21,08 
,10,F9 
,A7,28 
,F6,3E 
,D7,Di 
,32,D7 
,D7,Di 
,00,42 
,4E,54 
,52,45 
,20,00 
,47, 4F 
, 4E,50 
,41,44 
,20,00 
,00,4D 
,4E,45 
,48,45 
,54,00 
,00,52 
,45,20 
,49,46 
,50,52 
,00,43 
,45,54 
,44,00 
,49, 4E 
,53, 4B 
,28,00 
,47, 4E 
,00,53 
,43,28 
,4C,45 
,00,33 
,32,37 
,50,45 
,42,28 
,49, 4E 
,49, 4E 
,44,28 
,00,56 



61 DATA 41,52,50 

62 DATA 4F,53,28 

63 DATA 00,53,54 

64 DATA 4E,28,00 

65 DATA 72,6i,6D 

66 DATA 72,69,74 

67 DATA 3A,0D,0A 

68 DATA 49,4C,4F 

69 DATA 4A,6i,6E 

70 DATA 31,39,38 

71 DATA C8,CD,A2 

72 DATA FIM 

73 PRINT:PRINT:P 

74 A5=INPUTS<1> 

75 IF A4="S" OR 
INPUT"EM QUE LI 

76 LOCATE 0,20 

77 PRINT "LIST"; 

78 LOCATE 12,17: 

79 DEFUSR=8HD000 
NT 

80 FOR 1=65 TO 9 
I>;" = ";CHR%(24 
:NEXT T:NEXT I 

81 FOR 1=97 TO 1 
<I>;" = ";CHRf<2 
0:NEXT T:NEXT I 

82 END 



,54 
,00 
,52 
,0C 
,61 
,6F 
,54 
,54 
,65 
,38 
,00 



,45 
,24 
,50 
,20 
,20 
,48 
,20 
,69 
,2E 
,23 



,28 
,58 
,28 
,72 
,65 
,70 
,45 
,65 
,72 
,00 
,18 



,00,43 
,50,28 
,00,4C 
,6F,67 
,73,63 
,6F,72 
,20,50 
,6D,20 
,6F,2F 
,7E,A7 
,F7,00 



RINT"CONFIRMA?(S/N)" 

AS="s" THEN GOTO 79 ELSE 
NHA TEM ERRO";L 

Ly":REM-TECLE RETURN!" 

STOP 

:POKE 0,USR(0):PRINT:PRI 

0:PRINT "<SELECT>+"CHR*( 
);CHR%(I):FOR T=0 TO 100 

22:PRINT "<SELECT>+"CHR% 
4);CHR%(I):F0R T=0 TO 10 



THONDERSOFT 

THE NAME OF MSX 



PECA O NOSSO SUPER 
CATALOGO GRATIS! 
TEMOS APPLE * TAMBEM! 



JOGOS_200 

APUCATIVOS_800 

COP1AOORES_1000 

CP/M_1000 

PREQO DO DISCO . 700 

PREQODAFITA_8O0 

CORREIO 200 

E NT REG A EM 24 HORAS ■ 

CORREIO 




PACOTE N 9 1 



10 jogos — apenas 2.200 
(disco incliiido) 



PACOTE N 9 2 



10 jogos — apenas 2.700 
(fita incluida) 



PACOTE N 9 3 



MSX TOOLS I e II apenas 
3.200 disco incluido) 



SUPER PACOTES 



PACOTE N 9 4 



1 disco cheio — 2.200 

2 disco cheios - 3.200 



PACOTE N 9 5 



Aplicalivo * copiador - 
1 800(disco incluido) 



PACOTE N 9 6 



10 Aplicativos + disco 
apenas 5.800 



LANQAMENTOS DO MES 

TRANTOR • ELITE • BKT II • THUNDER BOOK • HARD 

COPY • IMAGINE (EXCLUSIVO ) 



A cada 5 programas escolha 1 gratis 

Para ouiros eslados, os pedidos deverao ser leuos atravds de cheuqe 
nominal e cruzado a MARCO ANTONIO THOVAO VAZ. R. Carvalho 
Alvim 278/501, Rio de Janeiro. RJ. CEP 20510 Tel.: (021) 268-6360 



FIGURA 2 



>+A 

■v- I X" + B 

SELECT>+C 
SELECT>+D 
SELECT>+E 
SELECT>+F 
SELECT>+G 
SELECT>+H 
SELECT>+I 
SELECT>+J 
SELECT>+K 
SELECT>+L 
SELECT>+M 

SELECT>+N 
SELECT>+0 
SELECT>+P 
SELECT>+Q 
SELECT>+R 



SELECT>+T 
SELECT>+U 
SELECT>+V 
SELECT>+W 
SELECT>+X 
SELECT>+V 
SELECT>+Z 



= NEW 
= BEEP 

= £°M T 

= DIM 

- REM 
= FOR 
= GOTO 
= GOSUE 
= INPUT 

- LOAD 
= LIST 
= LLIST 
= MOTOR 
= NEXT 
= POKE 
= PRINT 
= PSET < 
= RUN 



= TRON 
= IF 
= CLS 
= PRESET 
= CLEAR 
= RETURN 
= END 



<SELECT>+a 
:SELECT>+b 
SELECT>+c 
SELECT>+d 
SELECT>+e 
SELECT>+f 
SELECT>+g 
SELECT>+h 
SELECT>+i 
SELECT>+j 



R1=MK 



SELECT>+1 
SELECT>+m 
SELECT>+n 
SELECT>+o 
SELECT>+p 
SELECT>+o| 

SELECT>+r 
SELECT>+s 



SELECT>+t = 
SELECT>+u = 
SELECT>+y = 
:SELECT>+w = 
:SELECT>+x = 
:SELECT>+y = 
:SELECT>+z = 



Dcvcra aparcccr na tela a figura 3 pedindo confirmacao. 

Confira cuidadosamenlc lodos os niimcros da sua tela 
com os da figura 3. Se algum deles nao baler, voce podera achar 
rapidamenle a linha na qual o crro foi comciido. 

FIGURA 3 



= INKEVS 

= DSKF< 

= ATN< 

= TAN< 

= SGN< 

= ABS< 

= SQRC 

= AS« 

= VAL< 
■ 



= USR 

= 3.1415927! 

= NOT 

= PEEKX 

= SIN< 
= INK 
= STRINGS 



RND< 

CHR$< 

UARPTRC 

C0S< 

EtfP< 

STR$< 

LN< 



13=' 
18= 


1072^4=1131 15=^ 
643 19= 952 20= 


1240 16=1027^ 
634 21=1085 


T7=1O04 
22=1063 


23= 


740 24=1311 25= 


1133 26=1322 


27= 


676 


28= 


526 29= 401 30= 


372 31= 495 


32= 


497 


33= 


489 34= 380 35= 


501 36= 503 


37= 


567 


38= 


429 39= 470 40= 


498 41= 466 


42= 


420 


43= 


444 44= 527 45= 


460 46= 412 


47= 


495 


48= 


377 49= 499 50= 


377 51= 458 




412 


53= 


419 54= 411 55= 


423 56= 439 


57= 


425 


58= 


524 59= 415 60= 


383 61= 500 


62= 


479 


63= 


401 64= 538 65= 


764 66= 815 


67= 


418 


68= 


586 69= 759 70= 


557 71 = 873 







CPU 7 



Digamos, por exemplo, que voce obtevc a tela da figura 4. 

Checando esta tela com a da figura 3, voce percebe que 
na sexta Iinha, ao inv6s de aparecer 39=470, est4 39=473. 

Consequcntcmcnte, voce nao confirmard a digitacao, 
teclando N (de Nao). 



Basta, entao, checar a Iinha listada com sua corrcspon- 
denle a listagem da figura 2. Leve o cursor atd o erro c corrija-o. 
No nosso exemplo, urn 8 foi confundidocom urn B (figura 6). Apos 
a corregao, tecle RETURN e rode o programa novamentc. Rcpita 
o processo at6 terccrteza de que nao ha mais nenhum crro. Ncste 
ponto, voce confirma teclando S (de Sim). 



FIGURA 4 



FIGURA 6 



ilOnWjBCESHeiH 



8= 643 19= 952 29= 
'3= 749 24=1311 25= 
B= 526 29= 481 30= 
3= 489 34= 380 35= 
8= 429 39= 473 40= 
3= 444 44= 527 45= 
8= 377 49= 499 50= 
■3= 419 54= 411 55= 
;8= 524 59= 415 60= 
.3= 401 64= 538 65= 
>8= 586 69= 759 70= 

;0NFIRMA?(S/N) 



CrSftfcMBtOliTsE! 



634 21= 
-1133 26= 
372 31= 
501 36= 
498 41= 
460 46= 
377 51= 
423 56= 
383 61= 
764 66= 
557 71= 



1085 22= 
1322 27= 
495 32= 
503 37= 
466 42= 
412 47= 
458 52= 
439 57= 
500 62= 
815 67= 
873 



itriL-k»»-j',F 



SOW :fc»*Q IsW 



3= 740 24= 

B= 526 29= 

3= 489 34= 

8= 429 39= 

3= 444 44= 

8= 377 49= 

3= 419 54= 

8= 524 59= 

3= 401 64= 

8= 586 69= 



1311 25= 
i 401 30= 
380 35= 
i 473 40= 
' 527 45= 
i 499 50= 
i 4ii 55= 

| 415 60= 
' 538 65= 
| 759 70= 



1133 26= 
372 31= 
501 36= 
498 41= 
460 46= 
377 51= 
423 56= 
383 61= 
764 66= 
557 71= 



1322 27= 
495 32= 
503 37= 
466 42= 
412 47= 
458 52= 
439 57= 
500 62= 
815 67= 
873 



'0NFIRMA?(S/N) 

M QUE LINHA TEN ERRO? 39 



2olor auto goto list run 



freak in 78 

Ik 

.1ST 39 .REM -TECLE RETURN! 

9 DATA 50,53,45,54,20,213,00,52 

ik 



Neste momento, aparecerd uma mensagem pergun- 
tando em que Iinha esti o erro. 

Voce deverS digitar 39 (+ RETURN). 

Feito isto, o MSX gerard um comando de listagem, 
colocando o cursor sobre o prdprio comando (figura 5). 

Aperte RETURN e a Iinha em questao serf listada a 
seguir. 
FIGURA 5 



O programa salta para a fase seguinte, colocando na 
tela o pseudonimo do autor e listando todas as combinac5es de 
SELECT e letras que geram as palavras reservadas (figura 7) v 



FIGURA 7 



'fcOl'-iy-mCSHctl 



srjaiifcMBfroi'- 



3= 643 19= 952 20= 634 21= 


lays 


22= 


IW63 


3= 740 24=1311 25=1133 26= 


l.:.-:/';-' 


27= 


676 


8= 526 29= 401 30= 372 31= 


555 


32= 


49V 


3= 489 34= 380 35= 501 36= 


503 


37= 


507 


3= 429 39= 473 40= 498 41= 


466 


42= 


42(r1 


3= 444 44= 52? 45= 460 46= 


412 


47= 


495 


3= 377 49= 499 50= 377 51= 


458 


52= 


412 


3= 419 54= 4ii 55= 423 56= 


43y 


57= 


425 


3= 524 59= 415 60= 383 61= 


SHU 


62= 


4Y9 


3= 401 64= 538 65= 764 66= 


815 


67= 


41 e 


8= 586 69= 759 70= 557 71= 


8V3 






0NFIRMA?<S/N) 








1 QUE LINHA TEM ERRO? 39 








reak in 78 

k 

1ST 39 :REM-TECLE RETURN! 















rograma escrito por: 
1 HE PILOT em Janeiro/1988. 



:SELECT>+A = 
:SELECT>+B = 
:SELECT>+C = 
!SELECT>+D = 
;SELECT>+E = 
:SELECT>+F = 
:SELECT>+6 = 
:SELECT>+H = 
;SELECT>+I = 
;SELECT>+J = 
;SELECT>+K = 
;SELECT>+L = 
:SELECT>+N = 
'.SELECT>+N = 
:SELECT>+0 = 
;SELECT>+P = 
;SELECT>+Q = 
;SELECT>+R = 
:SELECT>+S = 

olor auto 



NEW 

BEEP 

CONT 

DIM 

REN 

FOP 

GOTO 

60SUB 

INPUT 

LOAD 

LIST 

LLIST 

MOTOR 

NEXT 

POKE 

PRINT 

PSET < 

RUN 

SAVE 



* CPU 



Vocfi pode, agora, grava-lo como um programa BASIC ou como 
uma rotina em Linguagem de Maquina. Neste ultimo caso, os 
comandos para gravacao e leitura estao relacionados na figura 8. 

FIGURA8 



pat-a salvar: 
SAVE "TECLHDO. BIN" , &HJJS00, &HMD7 <drive> 
SAVE " CAS : TECLAP " , &H&0Q0 , &HD1 P7 < grav . ) 

vara carreyar ■ 
LOAD " TECLADO . B I N " , R < dr 1 Me ) 
LOAD " ChS TECLAI' " . R ( grau. ) 



Tome cuidado para nao invadir, com o programa que 
voce esti digilando, a regiao de memona entre os enderecos 53248 
(&HD000) e 53719 (&HD1D7), pois 6 la que se localiza a rotina 
de redefinic2o do teclado. 

Seu MSX, agora, nao tern nada a invejar a um Sinclair, 
com relac3o a digitacao de palavras reservadas. Use esta rotina 
para digitar programas em BASIC. Inicialmente, voce demorara 
ate mais que o normal, mas vale a pena investir um pouco de seu 
tempo nisso. Depois de um certo tempo, voce ficara" t2o familiari- 
zado com esta tecnica que sua velocidadc de digitacao de um 
programa chegara a dobrar. 



Pierluigi Piazzi 6 Diretor Editorial da Editora Aleph e 
co-autor dos livros: 

Colecao de Programas para MSX vol.1 e 2, Usando a 
Planilha Eletronica no MSX, Aprofundando-se no MSX, Como 
usar seu HOTBIT, Curso de BASIC MSX, Curso de Musica para 
MSX, Drives Leopard de 3 1/2", 100 dicas para MSX e +50 dicas 
para MSX (em lancamenio). 

Milton Maldonado Jr. (The Pilot) 6 co-autor dos livros: 
Colecao de Programas para MSX Vol.1 e 2, Aprofun- 
dando-se no MSX, Programacao Avancada em MSX, 100 dicas 
para MSX e +50 dicas para MSX. 

O programa fornecido neste artigo foi, originalmente, 

publicado no livro " 100 DICAS PARA MSX", da Editora Aleph, 
e foi testado na presente versao num Expert 1.1, gentilmente 
cedido pela Gradiente, e num HOTBIT. 

Este programa pode ser usado por usuarios de MSX, 
mas sua comercializacao, seja na forma de programa isolado, seja 
na forma de sub-rotina de outro software, e" vedada por lei sem o 
expresso consentimento, por escrito, da Aleph PublicacOes e 
Assessoria Pedag6gica Ltda. 



UM PROFISSIONAL 
ACIMA DE 
QUALQUER 

SUSPEITA 

dBASE II PLUS MSX. 
Com ele voce faz 
o melhor negdcio. 



O dBASE II Plus MSX e uma forma 
completamente nova de gerenciar seus dados. 

E uma linguagem que permiti criar, de forma 
facil e rapida. um sitema completo de informacoes 
para seu neg6cio que faz exatamente o que voce 
quer. Contabilidade, mala direta, controle de 
estoque, gerenciamento de producSo, perfil de 
cliente, enfim, sistemas que irao manipular os 
problemas modernos que surgem a cada dia. 

O dBASE II Plus MSX nao e o unico meio de 
manipular dados no seu microcomputador, mas e o 
melhor! Medicos e advogados, contadores e 
vendedores, corretores e imobiliarias, donas- de- 
casa, pequenas e grandes empresas, todos 
utilizarao melhor, seus dados, com o d BASE II Plus 
MSX. 

Tudo o que voce tern a fazer e trabalhar 
com as informacoes usando nomes e conceitos que 
voce ja conhece, e que seu micro passa a conhecer 
atraves do d BASE II. Voce pode trabalhar com ele 
na forma Interativa ou Programada. 

Portanto a comunicacao e perfeita: clara, 
objetiva e rapida. 

Produzido pela DATALOGICA- 
PRINCESSWARE sob licenca da Ashton-Tate- 
U.S.A. 

Produto em disco com seu respectivo n» de 
serie, manual completo e garanlia. 

Conta tambem com suporte tecnico e direito 
a atualizacao de nova versao gratuitos. 

Software mundialmente aprovado. 

PRACTICA e PRINCESSWARE 



ATENQAO 

Este produto voce encontrara nos 
Revendedores Autorizados; exija sempre o original. 

A Lei de Software, traz beneficios mtituos. 
Vai proteger seu software. 



PRINCE&cSWAffi 



O futuro desta Geracfib Ja chegou. 

Para maiores informagdes: 
Av. Afoce, 579 - Indiandpolis 
CEP 04075 - Sao Paulo - SP 
Tel.: (011) 549-0545 
Calxa Postal 64635 - CEP 05497 
- SSo Paulo ■ SP 
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AS INSTRUgOES SECRETAS 
DO Z-80 



Linguagem de Mdquina - MSX 
Editora Aleph 



Se voce der uma olhada cuidadosa numa tabela de 
mncmonicos, pcrcebcrd que ex islcm alguns "buracos" nas colunas 
" apos CB" e "apos ED". Talvez voce ja lenha se perguntado o 
que acontece se lentar utilizar essas "instrucoes". De fato, algo 
acontece e, por incrfvel que pareca, at£ com certa logical Tcmos, 
entao, mais instrucoes disponiveis para utilizar o Z-80 que, no 
enianto, nao s3o divulgadas cm scus manuais e, portanlo, n3o 
fazem parte das tabelas dos programas Assembler e Disassembler. 
Vamos, entao, estudar essas "instrucoes secretas". O motivo pclo 
qual cstas instrucoes nao s3o divulgadas n3o e bem ccrto e 
prefcrimos n3o cmitir opinioes tenlando advinhar o porque. O fato 
c que elas exislcm. 

A ESTRUTURA DAS INSTRUCOES 

Se todas as combinacOcs possivcis de urn byte fossem 
utilzadas para indicar instrucoes, teriamos apenas 256 instrucoes 
disponiveis para o Z-80. Assim, quatro bytes foram rcscrvados 
para permitir o uso de mais instrucoes: 

CBH e EDH , que colocamos em "frente" a um dos 252 
bytes restantes, produzindo outras instrucoes. 

DDH e FDH que colocados em "frente" a quasc todas 
as instructs que utilizam o par HL, pcrmitem utilizar os pares IX 
elY. 

Desse modo, como oficialmenle tcmos 248 instrucoes 
apos CBH, 58 instrucoes ap6s EDH e mais 140 inslruc5es possi- 
bilitadas por DDH e FDH, lemos: 

252 + 248 + 58 = 698 instrucOes oficiais. 

Na rcalidade, s3o "apenas" 696, pois os codigos 22H e 
ED 63H correspondem ambos a LD (KK), HL e os codigos 2AH 
e ED6BH correspondem, ambos, a LD HL, (KK). 

Vamos, agora, tcntar preencher alguns malabarismos 
com os bytes para tentar"cavar" novas instrucoes. Num esforco de 
padronizacao, ulilizaremos os mesmos mnemonicosaprcscntados 
na maioria da literatura a respeito dessas novas insirucOes. 



AS INSTRUCOES NAO OFICIAIS 

Comccemos, entao, a preencher os oito bytes restantes 
para as instrucoes apos CBH, ou seja, de 30H a 37H. Tcremos, 
entao, uma nova instrucao de rotacao similar a SLA, que, cm vez 
de resetar o bit 0, este 6 sctado. Esta instrucao 6 chamada de SLI 
(Shift Left Inverted) e corrcspondc a multiplicar o valor do 
registro, ou memoria, por 2e somar 1 ao resultado. O CARRY pode 
scr usado para detectar "estouros". 

FIGURA 1 - A instrucao SLI. 



CARRV 

OH 



J- 



Utilizando os bytes DDH e FDH, temos, entao, dcz 
novas instrucoes: 

FIGURA 2 - Dez "novas" instrucoes de rotacao (-128 
<=Q>=127). 



INSTRUCaO 


C6DIG0 


SLI A 


CB37H 


SLI B 


CB30H 


SLI C 


CB31H 


SLI D 


CB32H 


SLI E 


CB33H 


SLI H 


CB34H 


SLI L 


CB35H 


SLI (HL) 


CB36H 


SLI ( IX+Q) 


DDCBQ36H 


SLI ( IY+0) 


FDCBQ36H 




* DRIVE 5. 1 1 A SUN COMPLETO 
♦ PLACA 80 COLUNAS 
*M0DEN DE COMUNICAQAO 



*EXPANSOR DE SLOT (C/4 SLOTS) 
♦GABINETE P/DRIVE COM FONTE FRIA 
* INTERFACE DUPLA P/DRIVE 



'■2-SQfi 



* PACOTAo EH WSCO: 100JOGOS(ISCOLHER) + 5 APUCAHVOS + 10 DISCOS > 40.000,00 
*PACOT*OEM FIfA: 1 00 JOGOS (ESC0LHER) + 5APUCATIV0S + 7 RTAS - 40.000.00 



SOUCITE NOSSO CATALOGO DE PROGRAMAS PARA FAZER A SUA ESCOIHA ATENDEMOS IODOS OS ESTADOS EM ?4 HORAS VIA SEDFX 
PARA FAZER SEU PEDIDO ENVIF CHEQUE NOMINAL COM CARTA DHALHADA PARA A. NASSER. 
RIO D€ JANEIRO: RUA GONZAGA BASIOS 411/203 - VILA ISABEI - RJ CFP 20541 - LEI (021) 234 0775 
FILIAL CURITIBA; AV 7 DE SEfEMBRO. 3146 IOJA 20 -- SHOPPING Sf IE CURITIBA PR CIP 80010 III 233 0046 
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Ale agora, mencionamos que os byles FDH e DDH 
podcriam scrcolocadosem frente dequase todasas inslrucOesquc 
cnvolvam o par HL para utilizar os rcyistros IX e 1 Y. Dc fato, as 
unicas "excccocs" sao as insirucOcs EX DE.HL, EXX e as 
instrucocs que ulilizam o par HL mas sao prcccdidas pelo byte 
EDH. O que acontccc sc tentarmos utilizar o par HL? Dc fato, se 
colocarmos os bytes FDH e DDH em frente a qualqucr instrucao 
precedida por CB H, com excecao das instrucocs que util izam o par 
HL e das instrucoes BIT, teremos 336 novas instrucocs, que 
irabalham dc modo bastantc peculiar: clas executam a instrucao no 
endereco indicado por IX e IY mais Q (niimero entre -128 e 127) 
e, apos islo, copiam o resullado no registro indicado pela instrucao! 
Note que islo equivale a duas instrucoes oficiais. Por exemplo: 

SET 7,A = CBFH DDCBQFFH = SET 7,(IX+Q) 
LD A,(IX+Q) 

Fica dificil, cnirctanto, definir um mnemonico para este 
tipo de instrucao. Poderiamos, por exemplo, utilizar o scguintc: 

SET 7,A/(IX+Q) 

Aqui cstiio, portanto, essas 336 novas instrucoes: 

FIGURA 3 - 

1 1 2 "novas" instructs usando SET (- 1 28<=Q<= 1 27). 



reg/t 
bit 


A/(IX+8) 
A/(IYt8) 


B/dX+8) 
B/dY+8) 


C/dX+8) 
C/(IY+6) 


D/dX+8) 
D/dY+8> 


E/(IX+8) 
E/dY+8) 


H/(IX+8) 
H/(IY+8) 


L/(IX+8) 
L/(IY+8) 




e 


DDCB8C7H 
FDCBGC7H 


DDCB8C8H 
FDC88C8H 


DDCB8CIH 
F0CB8C1H 


DDCB8C2H 
FDCB8C2H 


0DCB8C3H 
F0CB8C3H 


DDCB8C4H 
FDCB8C4H 


DDCB8C5H 
F0CB8C5H 




1 


DDCB8CFH 
FDCB9CFH 


00CB8C8H 
FDCB8C8H 


DDCB8C9H 
FDCB8C9H 


DDCB8CAH 
FDCB8CAH 


D0CB8CBH 
FDCB8CBH 


DDCB8CCH 
FDCBGCCH 


DDCB8CDH 
FDCB8CDH 




2 


DDCB8D7H 
FDCB8D7H 


DDCB8D8H 

FDCB8D9H 


DDCB801H 
FDCB8D1H 


00CB8D2H 
FDCB8D2H 


0OCB9D3H 
FDCB8D3H 


DDCB8D4H 
FDCB8D4H 


DDC88D5H 
F0CB805H 




3 


DDCB8DFH 
FDCB8DFH 


DDCB8D8H 
FDCB8D81! 


DDCB809H 
FDCB8D9H 


DDCB8DAH 
F0CB8DAH 


DDCB8DBH 
FDCB8DBH 


DDCB8DCH 
FDCB8DCH 


0DCS8DDH 
FDCB8DDH 




4 


DDCB8E7H 
FDCB8E7, 


DDCB8E0H 
FDCB8E0H 


0DCBGF1H 
F0CB8E1H 


D0CB8E2H 
F0CB8E2H 


DDCB8E3H 
FDCB8E3H 


D0CB8E4H 
FDCBQE4H 


DDCB8E5H 
FDCB8E5H 




5 


CDCBflEFH 
F0CB6EFH 


00CB8E8H 
F0CB8E8H 


DDCB8E9H 
FDCB8E9H 


0DCB8EAH 
FDCB8EAH 


D0CB8EBH 
FDCB8EBH 


0DCB8ECH 
FDCB9ECH 


DDCB8E0H 
FDCB8EDH 




6 


D0CB8F7H 
FDCB8F/H 


DDCB8F6H 
FDCB8F0H 


DDCB8F1H 
FDCB8F1H 


DDCB8F2H 
FDCB8F2H 


DDCB8F3H 
FDCB8F3H 


DDCB8F4H 
FDCB8F4H 


0DCB8F5H 
F0C88F5H 




7 


OOCBQFFH 
FDCB8FFH 


DDCB8F8H 
FDCB8F8H 


0DCB8F9H 
FDCB6F9H 


0DC68FAH 
FDCB8FAH 


D0CB8FBH 
FDCB8FBH 


00CB8FCH 
FDCB9FCH 


CDCE8FDH 
F0CB8FDH 





OUTRO 

PROFISSIONAL 
ACIMA DE 
QUALQUER 
SUSPEITA 

SuperCalc II MSX. 
Com e!e voce calcula 
as vantagens. 

O SuperCalc 2 MSX e uma planilha de 

calculo eletronica. um programa do planejamento 
elelronico. 

Com o passar do tempo, a sua utilizacao se 
tornou cada vez mais frequente. Milhares de 
usu^rios no mundo todo acharam esta a melhor 
maneira de aproveitar toda a capacidade e 
eficiencia de seus micros. 

E um instrumento para planejamento e 
previsao tinanceira e numerica. 

O Super Calc 2 MSX pode ser usado para 
desenvolver o orcamento inteiro de uma 
companhia, para organizar o orcamento domestico 
de uma familia ou para coletar dados numericos/ 
estatisticos. 

Sem diivida a terramenta ideal para 
administradores, engenheiros, vendedores, 
pesquisadores, esludantes, etc 

F6cil de usar nao requer grandes 
conhecimentos de computacao; loi feito para ser 
usado logo no seu primeiro contalo. 

Nada mais de l&pis , papel e calculadora, 
agora somente seu MSX e o SuperCalc 2 MSX. 
Produzido pela Compucenter-Princessware sob 
licenca da Computer Associates- U.S.A. 

Produto em disco com seu respectivo n° de 
serie, manual compteto e garaniia. Conta tambom 
com suporte tecnico e direito a atualizacao de nova 
versao gratuitos. 

Software mundialmente aprovado 

prActica e PRINCESSWARE 



ATENCAO 

Este produto voce encontrara nos 
Revendedores Autorizados; exija sempre o original. 

A Lei de Software, traz beneficios 
mutuos. Vai proteger seu software. 




O futuro desta Geracao ja chegou. 

Para maiores informafdes: 
Av. AfocS, 579 - Indlandpolls 
CEP 04075 - Sao Paulo ■ SP 
Tel.: (011) 549-0545 
Calxa Postal 64635 - CEP 05497 
- SSo Paulo - SP 
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reg/i 
bit 


A/(IX+9) 
A/dY+9) 


B/(IX+9) 
B/(IY+9) 


C/UX+fl) 
C/dY+9> 


D/dX+9) 
D/dY+9> 


E/dX+9) 
E/dY+9) 


H/dX+9) 
H/(IY+9) 


L/dX+9) 
L/(IY+9) 





DDCBQ87H 
FDCB987H 


DDC8980H 
FDCB980H 


DDCB981H 
FDCB981H 


DDCB982H 
FDCB982H 


DDC8983H 
FDCB983H 


DDCB984H 
FDCB984H 


DDCB985H 
FDCB985H 


1 


DDCB98FH 
FDCB98FH 


DDCB988H 
FDCB988H 


0DCB989H 
FDCB989H 


DDCB98AH 
FDCB98AH 


D0CB98BH 
FDCB98BH 


DDCB98CH 
FDCB98CH 


DDCB98DH 
FDCB98DH 




D0C8997H 
FDCB997H 


DDCB990H 
FDCB990H 


DDCB991H 
FDCB99iH 


D0CB992H 
FDCB992H 


D0CB993H 
FDCB993H 


D0CB994H 
FDCB994H 


DDCB995H 
F0CB995H 


3 


DDCB99FH 
FDCB99FH 


DDCB998H 
FDCB998H 


0DC8999K 
FDCB999H 


D0CB99AH 
FDCB99AH 


DDCB99BH 
FDCB99BH 


DDCB99CK 
F0CB99CH 


DDCB99DH 
FDCB99DH 


4 


DDCB9A7H 
FDCB9A7H 


DDCB9A0H 
FDCB9A0H 


DDCB9A1H 
FDCB9A1H 


00CB9A2H 
F0CB9A2H 


DDCB9A3H 
FDCB9A3H 


DDCB9A4H 
F0CB9A4H 


DDCB9A5H 
FDCB9A5H 


5 


00CB9AFH 
F0CB9AFH 


00CB9A8H 
FDCB9A8H 


DDCB9A9H 
FDCB9A9H 


DDCB9AAH 
FDCB9AAH 


DDCB9ABH 
F0CB9ABH 


DDCB9ACH 
FDCB9ACH 


DDCB9ADH 
FDCB9ADH 


6 


DDCB9B7H 
FDCB9B7H 


DDCB9B0H 
FDCB9B0H 


DDCBGB1H 
FDCB9B1H 


DDCB9B2H 
FDCB9B2H 


DDCB9B3H 
FDCB9B3H 


DDCB9B4H 
F0CB9B4H 


DDCB9B5H 
F0CB9B5H 


7 


DDCB9BFH 
FDCB9BFH 


DDCB9B8H 
FDCB9B8H 


DDCB9B9H 
FDCB9B9H 


D0CB9BAH 
FDCB9BAH 


DDCB9BBH 
F0CB9BBH 


DDCB9BCH 
F0C89BCH 


DDCB9BDH 
FDCB9BDH 



Figura 4-112 "novas" instrugoes usando 
RES(-128<=Q<=127). 



Figura 5-112 "novas" instru?Oes de rotatfio. 
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reg/i 
Inst . 


A/dX+9) 
A/dY+9) 


B/£IX+85 

B/dY+9) 


C/(IX+9) 
C/CIY+Q) 


D/dX*Q) 
D/dY+Q) 


•VdX+Q) 
E/dY+9) 


H/iIX<8) 
H/dY+9) 


L/dX+G) 
L/dY+9) 


RLC 


DDCB987H 
FDCB907H 


DOC8990H 
FDCB909H 


ODCB90iH 
FDCB901H 


DDCB902H 
FDCB902H 


DDCB903H 
FOC8903H 


DDCB904H 
FDCB904H 


DDCE9e5H 
FDCB905H 


RRC 


DDCB90FH 
FDC696FH 


DDCB90BH 
FOCB908H 


DDCB909H 
FDCB909H 


ODCB90AH 
FDCB90AH 


DDCB90BH 
FDCB90BH 


DDCB90CH 
FDCB90CH 


DDCB90DH 
FOCB90DH 


RL 


0DCB917H 
FDCB917H 


DDCB910H 
FDCB919H 


DDCB911H 
FDCB911H 


0DCB912H 
FDCB912H 


0DCB9I3H 
F0CB913H 


DDCB914H 
F0CB914H 


0DCB915H 
FDCB915H 


RR 


D0CB91FH 
F0CB91FH 


D0CB918H 
FDCB918H 


DDCB919H 
FDCB919H 


DDCB91AH 
FDCB91AH 


DDCB91BH 
FDCB91BH 


D0CB91CH 
FDCB91CH 


DDCB91DH 
FDCB910H 


SLA 


D0CB927K 
FDCB927H 


DOCB920H 
FDCB920H 


0DCB921H 
FDCB921H 


0PCB922H 
FDCB922H 


D0CB923H 
F0CB923H 


DDCB924H 
F0CB924H 


D0CB925H 
F0CB925H 


SRA 


D0CB92FH 
FDC882FH 


DDCB928H 
FDCB928H 


D0CB929H 
FDCB929H 


DDCB82AH 
F0CB92AH 


DDC892BH 
FDCB92BH 


0DCB92CH 
FDCB92CH 


DDCB92DH 
FDCB92DH 


SLI 


DDC8937H 

FDCB937H 


DDCB930H 
FDCB930H 


DDCB931H 
FDC8931H 


00CB932H 
FDCB932H 


O0CB933H 
FDCB933H 


DDCB934H 
FDCB934H 


DDCB935H 
FDCB935H 


3RL 


00CB93FH 
FDC893FH 


D0CB936H 
FDCB938H 


DDCB039H 
FDCB939H 


D0CB93AH 
FDC393AH 


0DCB938H 
F0CB93BH 


D0CB93CH 
FOCBaeCH 


0DCB93DH 
FDCB93DH 



Os registros IX e IY (de 16 bits) n3o podem ser 
divididos em 2 registros de 8 bits. Entretanto, se usarmos os bytes 
DDH e FDH cm frente a qualquer instrucao que utilize os registros 
H ou L separadamente, mas que n2o utilizem o par HL, executando 
as instrucOes prccedidas por CBH ou EDH, teremos acesso as 
metades dos registros. 

Se utilizarmos instruc&es com o registro H, estamos 
lidando com o byte mais significativo de IX ou IY, que chamare- 
mos HX c HY respectivamente, e, se utilizarmos instruc&es com 
o registro L, estaremos lidando com o byte menos significativo de 
IX ou IY (que chamaremos LX e LY, respectivamente). 

Temos, entao, 92 novas instrucOes. 

FIGURA 6 - 52 "novas" instrucOes. 



FIGURA 7 - 24 "novas" instrucOcs aritm&icas e, finalmente, as 
instruc&es ldgicas e de comparacao. 



LD 


HX 


LX 


HY 


LY 


A 


007CH 


DD70H 


FD7CH 


FD7DH 


B 


DD44H 


DD45H 


F044H 


FD45H 


C 


0D4CH 


DD40H 


FD4CH 


FD4DH 


D 


DD54H 


DD55H 


F054H 


FD55H 


E 


0D5CH 


0D5DH 


FD5CH 


F05DH 


HX 


0D64H 


DD65H 






LX 


DD6CH 


D060H 






HY 






F064H 


FD65H 


LY 






FD6CH 


FD6DH 



A 


B 


C 





E. 


K 


DD67H 


DD69H 


DD61H 


DD62H 


DD63H 


DD26KH 


DD6FH 


DD68H 


0D69H 


0D6AH 


DD6BH 


DD2EKH 


F067H 


FD60H 


FD61H 


FD62H 


FD63H 


FD26KH 


FD6FH 


FD68H 


FD69H 


FD6AH 


FD6BH 


FD2EKH 



Apesar do aspecto "cstranho" da figura 6, ela 6 simples 
de ulilizar. Os seguintes exemplos devem esclarecer a qucstao: 

LDC, HY = FD4CH 
LD HX, LX = DD 65H 
LD LY, D = FD 6AH 
LDHY, 16 = FD26 10H 





HX 


LX 


HY 


LY 


ADD A, 


DD84H 


DD85H 


FD84H 


FD85H 


ADC A, 


DD8CH 


DD8DH 


FD8CH 


FD8DH 


INC 


DD24H 


DD2CH 


FD24H 


FD2CH 


SUB A, 


DD94H 


DD95H 


FD94H 


FD95H 


SBC A, 


DD9CH 


DD9DH 


FD9CH 


FD9DH 


DEC 


DD25H 


DD2DH 


FD25H 


FD2DH 



FIGURA 8-12 "novas instruc&es logicas e 4 de comparacao. 





HX 


LX 


HY 


LY 


AND 


DDA4H 


DDA5H 


FDA4H 


FDA5H 


OR 


DDB4H 


DDB5H 


FDB4H 


FDB5H 


XOR 


DDACH 


DDADH 


FDACH 


FDADH 


CP 


DDBCH 


DDBDH 


FDBCH 


FDBDH 



Voce pode perceber que ainda existem alguns "bura- 
cos" nas instruc&es ap6s EDH, e muilas outras combinac&es 
possivcis. No entanto, at£ agora nada foi publicado a respeito 
dessas possi'veis novas instrucOcs, possivelmente porquc elas pro- 
duzem algum resultado "ildgico" ou resullado ncnhum. Se voce 
dispuser de tempo livre, divirta-se tentando descobrir o que estas 
instrucOes que faltam podem fazer. Entretanto, com estas 438 
novas instrucOes, temos, agora, 1 136 instrucOcs! Jd 6 o suficientc 
para se divertir. 

Voce poderia pcrguntar sobre o ef'cito dessas novas 
instrucOcs nas flags. O efeito 6 cquivalente as instruc&es "oficiais" 
e pode scr descoberto por analogia. 

Novamentc, salientamos que essas instrucOes n 3o po- 
dem ser utilizadas com os Assemblers e Disassemblers. En- 
tretanto, as pseudo- instrucOcs (ou NOPs posteriormentc 
preenchidos) podem facilitar as coisas. 

DB ODDH 

DEC L;equivalem a DEC LX 

DB OFDH 

SBC A,H ;equivalem a SBC A, HY 

Alguns Assemblers utilizam duas pseudo instruc&es, 
usadas para definir dados de urn byte (Byte), ou dois bytes (Word), 
rcspcctivamenterDB e DW. 

Com relacao aos registros HX, LX, HY c LY, 6 con- 
veniente salicntar que sua ulilizacao depende do seu programa. Se 
voce prccisar de muitos registros e puder deixar de lado as 
facilidades de enderecamento de mcmOria atravds dos pares IX e 
IY, entao pode utiliza-los sem problcmas. 
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GERENCIANDO ARQUIVOS 
EM DISCO 



BRUNO MARRUT 



Aprenda os comandos gerenciadores 
de arquivos no MSX 



E comum ouvirmosos usuarios de microcompuladores, 
principalmcntc os iniciantes, dizerem que goslariam de guardar 
rcccitas de bold, por exemplo, em seu computador. 

Os usuarios de fita logo pcrcebcm que trabalhar com 
arquivos de dados em fita 6 inviavcl, pois a gravacao/leitura de 
dados de uma fita cassete 6 uma tarefa que. pode consumir alguns 
bons minutos do seu tempo. 

Ja os usuarios de disco contam com uma enormc van- 
tagem que e a rapidcz com que os dados podem ser gravados, ou 
lidos, do disco, tornando, assim, o armazenamento de uma receita 
uma tarefa viavel c, dependendo do programa, ate com vantagens 
sobrc o ultrapassado fichario. 

Neste ariigo irci comentar as funcSes de gravacao e 
leitura cm disco, apresentando como exemplo um programa de 
mala-direla. 

Antes de iniciarmos, gostaria de aprcsentar as 
diferencas enlre os dois tipos de arquivos que podem ser geren- 
ciados no disco: arquivos sequenciais e arquivos aleatdrios. 

Arquivos sequenciais: se voce estiver utilizando uma 
fita cassete, os seus arquivos estarao gravados sequencialmente, 
ou seja, um ap6s o outro, sendo que voce nao podera acessar o 
segundo sem passar pelo primeiro, mesmo que avance rapida- 
mente a fita. 

Suponhamos que o seu arquivo seja sequencial e que 
nelc cstejam gravadas 235 fichas. Caso voce queira ler a ficha 234, 
tera que ler todas as 233 anteriores, mesmo sabcndo que a ficha 
procurada 6 a 234. 

Arquivos aleatorios: os arquivos aleatririos aprescn- 
tam a vantagem de permiurem o acesso direto a um detcrminado 
registro, independcnte da sua posicao, permitindo, assim, uma 
visualizacao de uma informacao muito mais rapidamcnte. 

Nos arquivos sequenciais a extensao de um registro 
pode ser variavel, isto 6, sc voce tiver programado a sua ficha para 
contcr at6 100 caracteres, mas, na digitacao, tiver ocupado apenas 
80 das 100 posicoes disponiveis, o espaco ocupado no disco sera 
o correspondence as 80 posicoes utilizadas e nao as 100 previa- 
mente previstas, resullando, portanto, em economia de espaco no 
disco. 

Em se tratando de arquivo aleatdrio, a extensao e fixa, 
ou seja, o espaco ocupado por cada uma sera igual, independente- 
mente da quanudade de caracteres que tenhamos digitado. 

Caso existam posicoes que nao tenham sido utilizadas, 
as mesmas serao preenchidas com o codigo correspondente ao 
espaco em branco. 

Em ambos os casos, a extensao maxima que podemos 
tcr para cada registro e de 256 bytes ou caracteres. 



Nos arquivos sequenciais a alteracao de uma ficha ja 
gravada, ou de um conjunto delas, 6 uma tarefa complicada e nada 
pratica. Para alterar uma ficha de um arquivo sequencial, devemos 
transferir todos os registros para variaveis indexadas e, depois de 
efetuarmos as devidas corrccoes, efetuar a regravacao de todo o 
arquivo. Este proccsso esta inlimamente ligado ao fato do arquivo 
sequencial tcr sua extensao variavel para cada registro e limita aca- 
pacidadc do arquivo a memdria disponivcl do computador 

Um arquivo sequencial deve ser abcrto e fechado cada 
vez que for acessado, o mesmo nao ocorendo com o aleat6rio, que 
deve ser aberto no infcio do programa e fechado no final do 
proccssamento. 

Portanto, nosso arquivo de mala-direta sera um arquivo 
aleatono.Os comandos que ulilizaremos em nosso programa, e que 
pertecem ao Disk Basic, estao comentados abaixo: 

OPEN 

SINTAXE: OPEN "d:arquivo" AS # NRO LEN=NRO 
FUNCAO: abrir um arquivo para a cntrada e ou sai'da dc dados. 
Ao executarmos o comando OPEN, reservamos uma 
area da mem6ria docomputador, chamada de"BUFFER". E la que 
os dados sao armazenados, temporariamente, antes de sercm 
gravados no disco, ou quando sao lidos do mesmo. 

NRO e utilizado para especificar o numcro do arquivo 
em processamento. E definido pela instrucao MAXF1LES. 

LEN=NRO define a quanudade de bytes que cada 
registro ira ter. Caso nada seja cspccificado, sera assumido pelo 
sislcma o valor maximo, que e de 256 bytes. 

Podemos abrir, simultaneamente, ate 6 arquivos para a 
cntrada de dados. Contudo, para a safda, apenas um podera estar 
aberto. 

CLOSE 
SINTAXE: CLOSE # NRO 
FUNCAO: Fechar um arquivo abcrto anteriormente. 

NRO - Especifica o arquivo a ser fechado. Caso nada 
seja especificado, todos os arquivos que se encontrem abertos 
serao fechados. 

O nao fechamento de um arquivo apos o mesmo ter sido 
aberto, tornara impossfvel a utilizacao das informagOes armazena- 
das. O comando CLOSE transfere todos os dados armazenados no 
BUFFER para o disco, o que s6 ocorre normalmente quando o 
BUFFER 6 totalmente preenchido. 

LOF 

SINTAXE: LOF NRO 

FUNCAO: Utilizada para indicar a extensao de um arquivo. 
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FIELD 

SINTAXE: HELD #NRO, A AS X1$,B AS X2$ 
FUNCAO: organiza o espaco dentro de um registro, atravds de 
vari£veis alfanumdricas, ou seja, informa como sera" dividido o 
registro. 

As varidvcis definidas atravds da instrucao FIELD n3o 
podem receber os dados diretamente, atravds de LINE INPUT, 
por exemplo, pois elas sao alocadas no BUFFER. Entao, os dados 
enirados devem ser atribuidos inicialmente a outras variaveis que 
n2o sejam as definidas atravds do FIELD, atravds de LINE INPUT, 
por exemplo, e depois transferidas para as variaveis definidas por 
FIELD, atravds dos comandos LSET e RSET. Feito isio, os dados 
podcrao, entao, ser transferidos para o disco, atravds do comando 
PUT. 

Para a leitura de dados do disco tambdm utilizamos a 
instruc3o FIELD, sendo que, ao invds de utilizarmos PUT, iremos 
utilizar GET, que permite que seja lido um registro por vez, 
transferindo o seu conteudo para o BUFFER, estando os dados 
disponfveis para manipulacao. 

LSET 

SINTAXE: LSET variavel 1 = variavel 2 
FUNCAO: Transferir os dados da mem6ria principal para o 
BUFFER variavel 1 = definida em FIELD 
variavel 2 = variavel de trabalho 

PUT 

SINTAXE: PUT NJN' 

FUNCAO: grava no disco as informacOes do registro. 

N = numero do arquivo abcrto pela instrucao OPEN 
n' = numero do registro que sera" gravado 

GET* 

SINTAXE: GET N,N' 

FUNCAO: 16 os registros do disco, colocando-os no BUFFER. 
n = numero do arquivo aberto pela instrucao OPEN 
n' = numero do registro que scrd lido. Caso n3o seja 

utilizado, sera lido o registro apos o ultimo lido pelo comando 

GET, ou o primeiro. 



MAXFILES 

SINTAXE: MAXFILES =N 

FUNCAO: Definir a quantidade de arquivos que podem ser 

abertos pela instrucao OPEN 

MKD$ - MKS$ E MKI$ 

MKDS (nro. de dupla precisao) 

MKS$ (nro. de simples precisao) 

MKIS (nro. inteiro) 
FUNCAO: Converter ntimeros ou variaveis numdricas para 
variaveis alfanumdricas. 

Em um arquivo de acesso direto s6 podemos trabalhar 
com STRINGS. Portanto, varidveis numdricas (dupla precisao, 
simples precisao ou inteiras) devem ser con vertidas em STRINGS . 

Quando formos definir o espaco ocupado pela variavel 
em um registro, atravds da instrucao FIELD, para dados numd- 
ricos, devemos usar a quantidade de "bytes" referentes aos 
mimeros ja" convertidos, observando que: 

MKDS - converted o dado numdrico de dupla precisao 
em uma variavel alfanumdrica de 8 "bytes". 

MKS$ - converterd o dado numdrico de simples 
precisao em uma variavel alfanumdrica de 4 "bytes". 

MKIS - converter^ o dado numdrico inteiro em uma 
variavel alfanumdrica de 2 "bytes". 



A utilizacao de dados numdricos merece uma atencao 
especial na hora de definirmos a instrucao FIELD, pois os campos 
n3o poderao ser menores e, caso sejam maiores, havera desperdl- 
cio de espaco. 

Descrevemos acima os comandos do DIS K B AS IC que 
iremos utilizar para o nosso programa de Mala Direla. 

Acredi tamos que, analisando o programa e os conceitos 
transmitidos acima, voce estara capacitado a desenvolver qualquer 
tipo de rotina para gravacao e leitura de dados em disco, que podera 
ser utilizada em seus prdprios programas. 
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MSX rAMAUROTE. BANANAS, EL MUNDO PERDIDO. 

CAR FIGHTER, OCEAN CONQUEROR, CAR JAMBOREE 

MSX II: THUNDER, CHOPPER, CHESS, REDLIGHT, OF AMS 

TERDAN, PIXEL 2, PHILLIPS DESIGNER'S 

MEGARON MSX: PINGUIN ADVENTURE, F1 SPIRITS, 

SALAMANDER, DRAGON QUEST, NEMESIS 2, CALL FORCE 

MEGARON MSX 2: ZANAC, HINOTORI, KING KONG 2. 1942. 

LABYRINT, METAL GEAR, VAMPIRE KILLER, LUPIN 3RD, 

DRASLEY FAMILY, SUPER RAMBO 



E MUITO MAIS!!! 
Solicits nosso catalogo gratis pelo tel.(01 1) 212-8990 das 14 as 22 horas 

CAIXA POSTAL 54243 - SAO PAULO - SP-CEP 01286 
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IB REM MALA DIRETA 

20 REM REVISTA CPU NRO 5 

38 REM BRUNO MARRUT 

4B REM LIMPA TELA E DEFINE AREA DAS VAR 

IAVEIS 

50 CLSiSCREEN 0:WIDTH 40:KEYOFF 

60 CLEAR 3080:MAXFILES=2 

70 REM A6RE E DEFINE A ESTRUTURA DO ARQ 

UIVO 

80 OPEN "A:ARQUIVO" AS II LEN=117 

98C=L0F(1)/117+1 

100 FIELD #1,40 AS NO$,40 AS EN*,15 AS 

BA$,15 AS CI*,2 AS UF*,5 AS CE* 

118 REM EXIBE MENU NA TELA 

120 CLS:PRINT"REVISTA CPU":PRINT"ARQUIV 

DE MALA DIRETA" 

138 PRINhPRINT "1 - ENTRADA DE DADOS 

148 PRINT "2 - BUSCA POR NOME 

158 PRINT "3 - BUSCA POR REGISTRO 

160 PRINT "4 - LISTA ARQUIVO NO VIDEO 

178 PRINT "5 - FIM 

190 Z«=INPUT*(D 

200 ON VAL {It) GOTO 220,508,648,1280,1 

380 

210 GOTO 190 

228 REM ENTRADA DE DADOS 

238 CLS:PRINT "REGISTRO ";C 

240 PRINT:PRINT:LINE INPUT "NONE ": N$ 

250 LINE INPUT "ENDERECO "; E< 

268 LINE INPUT "BAIRRO "j B$ 

278 LINE INPUT "CIDADE "; CI 

280 LINE INPUT "ESTADO "; S$ 

290 LINE INPUT "CEP "; P* 

300 CLSiPRINT "REGISTRO ";C 

310 PRINT N«:PRINT E$:PRINT B«:PRINT C* 

:PRINT S*:PRINT PI 

320 PRINT:PRINT"DESEJA EFETUAR ALBUM A 

LTERACAO? (S/N)" 

338 Z«=INPUT«(1|:!F Z$="S" OR Z*=V TH 

EN 60SUB 3400 ELSE IF Z$="N" OR Z*=V 

THEN 428 

428 REM 6RAVACA0 DOS DADOS NO DISCO 

438 LSET NO$=N«:LSET EN«=£»:LS£T Bfl«=Bt 

: LSET CI«=C«: LSET ES$=S»:LSET CE$=Pt 

435 PUT ll,C:C=C+l 

440 CLS:PRINT "REGISTRO GRAVADO":PRINT: 

PRINT"DESEJA EFETUAR NOVA ENTRADA' (S/N 

)" 

450 Zt=lNPUT*(l):IF Z*="S" OR Z*=V TH 

EN 220 ELSE IF Z$="N" OR Z*=V THEN 12 



580 REM BUSCA POR NOME 

510 as 

520 IF C<2 THEN PRINT "ARQUIVO VAZIO":G 

OTO 128 

538 LINE INPUT "NOME A PROCURAR ";N* 

540 FOR K=l TO C-l 

550 GET il,K 

560 IF N*=LEFT»(NO«,LEN(N*)) THEN GOTO 

585 

570 NEXT K 

580 PRINT "NOME NAD ENCONTRADC" 

585 GOSUB 1008 

598 PRINT :PRINT:LINE INPUT "PRESSIONE Q 

UALQUER TKLA PARA VOLTAR"; Zl 

688 GOTO 120 

610 PRINT-.PRINT "DESEJA (A)LTERAL (C)AN 

CELAR OU (V)OLTAR AO MENU PRINCIPAL?" 

620 Z$=INPUT*(1):IF Zt="A" OR Z«=V TH 

EN 888 ELSE IF H»"V" OR Z*="v" THEN 12 

ELSE IF Z*="C" OR Z«=V THEN 750 

638 GOTO 628 

648 REM BUSCA POR REGISTRO 

650 CLS:PRINT "QUAL NUMERO DO REGISTR 

0?" 

660 K=8: INPUT K:IF K>=C THEN PRINT "REG 

ISTRO NAO EXISTE. ULTIMO REGISTRO EFETU 

ADC FOI DE NUMERO: "; C-1:PRINT:PRINT 

"PRESSIONE UMA TECLA PARA VOLTAR" 

670 GET #1,K:G0SUB 1800 

680 GOTO 610 

758 REM APAGAR REGISTRO 

768 LSET NO«="":LSET EN*="":LSET BA«="" 

:LSET CI*="":LSET ESi="":LSET CE*=" 

778 PUT ll,K 

788 PRINT "REGISTRO DELETADO":PRINT"PRE 

SSIONE QUALQER TECLA PARA RETORNAR 

785 Q*=INPUT*(1):!F Q*<>"" THEN 120 

880 REM ALTERAWO DE REGISTRO 

885 as 

BIB PRINT NO*:PRINT EN»:PRINTBAt:PRINTC 

U-.PRINT ES$:PRINTCE« 

820 GOSUB 5808 

840 PRINT "PRESSIONE QUALQUER TEaA PAR 

A VOLTAR AO MENU PRINCIPAL" 

850 INPUT Zt:GOTO 120 

1800 REM DISPLAY DE INFORMACOES NO VIDE 



1005 PRINT :PRINT"REGISTRO ";K:PRINT 



1010 PRINT KB 
1828 PRINT EN* 
1B3B PRINT BA*;Srai);C!t;SPC(l!;ES*;SP 

C(l!;CEi 

1078 RETURN 

1200 REM RELATORIO NO V,DEO 

1205 aS:PRINT"PARA PARAft RaAMENTO D 

A LISTAGEM PRESSIONE STOP" 

1210 IF C<2 THEN PRINT "ARQUIVO VAZIO - 

PRESSIONE QUALQUER TEaA PARA CONTINUA 
R" : INPUT Z«!lF 2* <>"" THEN GOTO 120 

1220 FOR M TO C-l 

1230 GET H.KsBOSUB 1800 

1240 NEXT K 

1250 PRINT "FIM DA LISTAGEM. PRESSIONE 

UNA TEaA PARA RETORNAR "l INPUT ZV.GOTO 

120 

1388 aosE 

1318 END 

3400 PRINTLINE INPUT "QUAL CAMPO QUE 
DESEJA ALTERAR?";Z« 

3500 IF Zt="NOME" THEN LINE INPUT "NOME 
■}» 

3600 IF Zt="ENDERECO" THEN LINE INPUT ■ 

ENDEREW "; £« 

3700 IF Z«="BAIRRO " THEN LINE INPUT "B 

AIRRO "; Bt 

3800 IF Z»="CIDADE ■ THEN LINE INPUT "C 
IDADE *; C* 

3988 IF Z»="ES1AD0 " THEN LINE INPUT "E 

STADO "; S* 

4808 IF Z$="aP " THEN LINE INPUT "CEP 

■;P$ 

4828 RETURN 

5000 PRINT :LINE INPUT "QUAL CAMPO QUE 

DESEJA ALTERAR?";Z« 
5100 IF 2*="NUME g THEN LINE INPUT "NOME 

"; N0« 

5200 IF Zt="ENDEREM)" THEN LINE INPUT " 
ENDEREW "; ENt 

5i«0 if it*"mm u t*n nHf i*w "p 

AIRRO "j BA* 

5480 IF Z*=-CIDADE " THEN LINE INPUT "C 

IDADE "; CI$ 

5500 ff Z*= "ESTADO " THEN LINE INPUT "E 

STADO "j £35 

5600 IF Z$=*CEP " THEN LINE INPUT "CEP 

"; CEt 

5720 RETURN 
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ALEM DE 

QUALIDADE • GARANTIA • SUPORTE 

- mais de 20.000 clientes - 

- o maior estoque do mercado - 

- mqis de 1.000 programas - 

- a mais completa linha de perifericos -| 

- mais de 1.000 revendedores - 



HARDWARE SOFTWARE PERIFERICOS ACESS6RIOS CURSOS 
ASSISTENCIA TECNICA PARA MICROS , MONITORES E DRIVES 
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INTELIGENCIA 



ANTONIO F.S.SHALDERS 
VICTOR ELIASZ WELMAN 



ARTIFICIAL 
EM PASCAL 



Programas que simulam o 
raciocinio humano ja s3o uma realidade, 
deixando os cen3rios de filmes de ficc3o 
cienlifica, como por exemplo os computa- 
dores HAL e SAL, do filme "2010". Tais 
computadores eram capazcs dc incrivcis 
facanhas, tal como rcconhccimcnio e 
sinlcsc dc voz, c urn incn'vcl podcr dc 
dcducao e racioci'nio. 

E logico que o que propomos 
neste artigo n3o chega nem aos p6s disso, 
mas n3o deixa dc scr muilo inicrcssanic, 
principalmente se for levado em conia que 
nao foi usada nenhuma linguagem 
espeeffica para programacao em IA, como 
o LISP e o PROLOG, sendo realizado 
tolalmente em Pascal. 

Um programa em IA simula de 
algum modo o pensamento humano (ou 
pelo menos tenta), fazendo que o prdprio 
programa tome uma decisao ou entao faca 
uma dcducao sobre algum fato. 

Voce que sempre escula de seus 
pais e colegas: "O que e" que voce tanto faz 
na (rente daquela maquina burra ?!" ter3 
chance de se defender, mostrando-lhes que 
o seu computador n3o 6 uma maquina 
assim tao burra, e que, se corretamente pro- 
gramado, pode ate "aprender". Caso o 
programa comcta algum erro, esle aprende 
a n3o faze-lo novamente. 

Um caso u'pico de programas que 
utilizam tecnicas dc IA s3o os jogos de 
tabuleiro como o xadrcz e o gam3o. As 
primeiras partidas s3o facilmcntc vencidas 
por voce, mas, depois dc um ccrto tempo, 
fica pralicamcnte impossivel veneer a 
maquina, pois o jogo "aprende" a n3o pcr- 
dcr, com seus proprios erros. 

O que podemos fazcr em Pascal e simular- 
mos matematicamente alguns procedi- 
mentos que facilitam a programagao em 
IA. 

O algoritmo utilizado 6 o da 
arvorc (sem podas), por ser o dc mais facil 
implementacao, mas ncm por isso o pro- 
grama deixa dc ser inleressante, pois o 
mesmo superou todas as cxpcctauvas em 
rela^ao ao desempenho. 

O mctodo da drvore consiste em 
seguirmos um dcterminado caminho 
(galho) ate chegarmos a uma rcsposta coer- 
enle (frulo). 

O programa mosirado 6 conhe- 
cido tecnicamcntc por reconheccdor. No 
nosso caso, como o proprio nomc indica, 6 
capaz dc reconhecer uma pessoa bascado 
em suas caractcrfsticas ou em fatos a ela 
refcrentes. 
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A situac3o correspondent na 
vida humana d a scguintc: um amigo seu 
Ihc pergunta se voce conhece uma deter- 
minada pessoa. A priori, voce n3o se lem- 
bra e vai, entao, fazendo uma serie de 
perguntas que o ajudarao a reconhece-la. 
O rcconhecimento, neste caso, da-se 
quando uma imagem mental da pessoa em 
questao 6 formada no seu conscicntc. 

Caso voce tenha pensado em 
outra pessoa di fercnte, ira proc urar algu ma 
coisa que diferencie a pessoa em questao 
da que voce pensou, de modo a n3o comc- 
ter o mesmo erro novamente, ccrlo ? 

Analisemos, agora, como 6 
constitufda uma irvore. Para isso, observe 
a figura 1 atentamente. 



4 5 6 7 
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O niimero 1 no topo da arvore e a 
semenle (ou pergunla inicial). A partir 
desta pergunta, podemos distinguir ate 
oilo frutos (que esiao na base da arvore). 
Os frutos s3o as terminates dos galhos. 

Note que ha apenas um caminho 
possfvel para chegarmos a cada fruto e 6 
isso que nos permitc idcnlifica-lo corre 1 - 

tamente. " * 

Suponha que nos "n6s" da arvore 
(chamaremos de "n6s" os pontos por onde 
passam dois ou mais galhos) hajam 
perguntas e cada vcz que a resposta for 
"sim", voce ande para a esquerda, e 
quando for "n3o", ande para a direita. 

Por exemplo: para chegarmos ao 
fruto 13, devemos responder n3o a 
pergunta do no 1 , sim 3 do no 3 e n3o a do 
n6 6. Chcgaremos, entao, ao fruto em 
questao. 

Suponha, agora, que a resposta 
obtida em 13 esteja errada. Devemos, 
entao, converter cste frulo em um n6, com 
uma pergunla que nos pcrmita distinguir a 
rcsposta cerla da obtida, c criar dois frutos, 
um com a resposta certa e outro com a 
obtida. 

No caso mencionado, as ultimas 
linhas da arvorc ficarao como as mostradas 
na figura 2. 
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Para consiruirmos uma arvore, 
basta cscolhcrmos uma semente inicial (l) 
e ir muluplicando este valor por dois para 
uma rcsposta posiliva, e multiplicando por 
dois e somando um para uma resposta nega- 
tiva. 

Concluimos, enl3o, que um ca- 
minhoe" formado por numcros que s3oo 
dobro, ou o dobro mais um, do niimero 
anterior ao mesmo, no caminho. 

Este e o procedimento 
maiematico adotado pelo algoritmo da 
arvore (sem podas). S3o excmplos de 
caminhos: 

a) 1,2,4, 8,17,34,69 

b) 1,3,6, 13,26,53, 107 

O que o nosso programa faz 6 
estrulurar uma arvorc desic tipo para entao 
seguir os galhos ate chegar a um fruto coe- 

renle . 

No, programa, a semente 6 a 
pergunta "E homem ?" c os dois frutos 
iniciais s3o "Jo3o", para uma resposta afir- 
maliva, c "Maria" caso a reposta scja nega- 
tiva. 

Voce deve subslituir estcs dois 
nomes por outros dc sua conveniencia. 

Se o programa for utilizado com o 
Turbo Pascal em opc3o de compilac3o em 
memoria, o array responsavel pelo niimero 
dc nomes nao devera ser superior a 220. Na 
opc3o dc compilac3o em disco, n3o devera 
ser superior a 840. 

Este programa foi claborado para 
reconhecer pessoas, mas nada impede que 
seja usado cm areas profissionais, como 
por exemplo na area medica. 

Neste caso, se voce € medico, 
podcra colocar em cada no um sintoma c 
nos frutos, um prc-diagnostico. 

E possivel aplicarmoso programa 
em robotica. 

Neste caso, suponha que voce 
qucr fazer com que um robo pegue um dc- 
terminado objeto em sua casa e o leve aid 
voce. O rob6 leria um mapa de sua casa e 
iria lhe perguniando a respeilo dos locais 
onde o objeto cm quesiao eslaria, se- 
lecionando, assim, o local exalo para ir ate 
la e irazer-lhe o la! objeto . 

AspossibilidadesdeusodelAsao 
ilimitadas. 

H3 casos de programas para 
geoprospeccao, estratcgistas miliiarcs, 
diagn6stico de doencas, e muilos outros 
lipos. 



PROGRAM INTART 



program intart; 

[otimizacao dc arrays para 

vclocidade ) 

{$X-} 

(area dc definicio de lipos) 

type fl=slring[40]; 
type pd=record 

k: integer. 

Cited; 

p:fi; 

end; 

( 5rea de dcfinicao de variaveis ) 

var 

q : array|0..250] of 

pd; { array do numero de pessoas ) 

d,lc,b : pd; 

re,s : slring[3]; 

ar,tr,aqv_arq : fi; 

co : real; 

j,l,h,m,a ! integer; 

aqv : file of pd; 

(lc um caracterc do icclado) 

function gnchar, 
var rpichar, 
begin 

readln(rp); 

gr:=upcasc(rp); 
end; 

function rx(x:integer):real; 
var i :integer, 

ax:real; 
begin 
ax:=l; 
for i:=l tox do 

ax:=10*ax; 
rx:=ax; 
end; 

(dobrar) 

function db(x:real):real; 
begin 
a:=trunc(ln(x)/ln(10)); 
if a<=9 then 
db:=2'x 
else 

db:=rx(a-9)*x 
end; 

{dobrar mais um) 

function dm(x:real):real; 
begin 
a:=trunc(ln(x)/ln(IO)); 
if a<=9 then 
dm:=2*x+l 
else 

dm:=rx(a-8)*x 
end; 

{achar nomes) 



function achar(x:real):integer. 


if ie.k=2 then 


{ apresentacao ) 


var ya: integer. 


begin 




begin 


wrileln('Poracasoc: '); 


procedure apresentacao; 


ya:=l; 


writcln(te.p,' ?'); 


begin 


while q|ya).c<x do 


re:=gr; 


clrscr. 


ya:=ya+l; 


if rcos then 


wrilelnC 


achar:=ya; 


begin 


'); 


end; 


wrilelnC Quern 6 ?'); 


wrilelnC IntArt 1.00'); 




rcadln(ar); 


wrilelnC (C) 1988 


(ler dados do disco} 


wrilelnC De uma 


by 1 ); 




dil'crenca enlre '); 


wrilelnC Victor E. 


procedure Ids; 


writeln(te.p,' e ',ar); 


Wclman'); 


begin 


readln(lr); 


wrilelnC e'); 


j:=0. 


writeln(te.p); 


wrilelnC A. F. 


assign(aqv,aqv_arq); 


writeln(tr, '?'); 


Shaldcrs'); 


reset(aqv); 


rcs=gr. 


wrilelnC 


while not cof(aqv) do 


if reos then 


'); 


begin 


begin 


end; 


read(aqv.d); 


co:=db(te.c); 




q\}]-=* 


lc.c:=dm(lc.c) 


{ corpo do programa principal ) 


j:=j+l; 


end 




end; 


else 


begin 


J:=J-1; 


begin 




q[0]:=b; 


co:=dm(le.c); 


apresentacao; 


end; 


te.c:=db(te.c); 


got oxy( 1,10); 




end; 


q[01.k:=l; 


( gravar no disco ) 


q[l].k:=l; 


q[01-c:=l; 




qll].p:=tr;ir(ic.p,tc.c); 


q|0].p:='E HOMEM'; 


procedure gds; 


ir(ar.co); 


b:=q[0]; 


begin 


end; 


q|l|k:=2; 


assign(aqv,aqv_arq); 


l:=j+l; 


q[l)c:=2; 


rewrite(aqv); 


end; 




forh:=0 to jdo 


end; 


(*** sememe da parte 


wrile(aqv,q[hl); 


end; 


masculina ***) 


close(aqv); 






end; 


( inicializacao do velor) 


q(l].p:='Joao'; 


procedure ir(ss:fi;rr:rcal); 


procedure init; 


q[2).k:=2; 


var i.v :integcr. 


var v:string[ll); 


q|2].c:=3; 


begin 


begin 




i:=0; 


writeln('Carregar arquivo ?'); 


{*** semenle da pane 


while ((q[i].c<rr)and(i<=j)) do 


v:=gr. 


feminina ***) 


i:=l+i; 


if v=s then 




for v:=j downto i do 


begin 


q[2|.p:= , Maria'; 


q[v+l]:=qM; 


writelnCNome do arquivo 




q(i).c:=rr. 


?•); 


j:=2; 


q|ij.k:=2; 


rcadln(v); 


s^'S'; 


qli).p:=ss; 


clrscr; 


init; 


j:=j + l; 


aqv_arq:=v; 


m:=l; 


end; 


Ids; 


while m>0 do 




end; 


begin 


{ controle principal de processos ) 


wrileln; 


wrilelnC Pense em alguem:'); 




end; 


clr. 


procedure ctr. 




wrilelnC Mais alguem ? '); 


begin 


( finalizacao do programa) 


re:=gr; 


1:=0; 




if reos ihen m:=0; 


while l<=j do 


procedure final; 


end; 


begin 


var v:slring|I 1 ]; 


final; 


tc:=qll); 


begin 




if le.k=l then 


writcln('Salvar arquivo ?'); 


end. 


begin 


v:=gr. 




wrileln(te.p,' ?'); 


if v=s then 




re:=gr. 


begin 




if rc=s then co:=db(ie.c) 


writeln('Nome do arquivo 




else co:=dm(te.c); 


ry. 




l:=adiar(co); 


readln(v); 




end; 


aqv_arq:=v; 
gds; 
end; 
end; 
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INTERPRETADOR DE EXPRESSOES 



ANTONIO F. SHALDERS 



Muilosde voces, Icitoresjd li- 
veram vontade de fazer urn programa que 
pudesse gcrar graficos de funcoes de sua 
escolha. 

Alguns, talvcz, jd ate" lenham 
comc?ado, porcm muilos de voces esbar- 
raram no problema de intcrpretar funcoes— 
resolveram (alias, qucbraram ogalho) 
modificando-o para cada run?ao que 
quissesem tracar. Outros apclaram para um 
menu fixo de funcOcs com o maximo de 
fung5es que puderam imaginar. 

Uma parte tentou fazer um inler- 
prclador de exprcssOes e acabaram 
desistindo ou, se oconseguiram, foi a muito 
custo. 

E, finalmenie, os raros que con- 
seguiram sem grandes dificuldades. 

Porcm, cstcsja tinham um ponto 
de pariida, uma iddia inicial. 

Mas qual c a ideia inicial c qual c 
o ponto de partida ? 

Esie ariigo sc deslina a dar uma 
ideia inicial de como se faz um interpreta- 
dor de expressocs e, muito supcrfi- 
cialmente, de como funciona um compila- 
dor, usando o mctodo de descida recursiva, 
apresentando um exemplo de interpreta- 
dor„ cuja listagem esta neste artigo. 

Mas sera este exclusivo a este ar- 
tigo? Nada disso. Isto nao implica que o 
nosso interprelador de comandos nao possa 
ser usado juntamente com outros pro- 
gramas, pois elc 6 totalmentc independente 
do programa de tragado de funcoes. 

Sua operacao 6 bastante simples: 
basta, apenas, seguir alguns pequenoscui- 
dados. 

Comegarei definindo o que e 
"Token", "I6xico", "sintatica" e 
"semaniica", com uma analogia com a 
lingua portuguesa (que me perdoem os pro- 
fessores de porlugues). 

Digamos a sequencia de palavras : 
formiga elefante a o malou. 

Esta sequencia nao fonna uma 
frasc porque n3o esta sintaticamente cor- 
rcta. Por6m, lexicamente, ecorreta: todas 
as palavras tern seus sentidos isoladamente. 

Pode-se dizer que cada palavra e 
um Token por ser um elcmento com sentido 
isoladamente. 

Digamos, agora, uma nova 
sequencia de palavras : 
a formiga malou o elefante 
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Esta sequencia apresenta-se 
sintaticamente ccrta, i.e., sem erros 
sinlalicos, porcm semanucamente esta in- 
correta : uma formiga nao pode matar um 
elefante ! 

Observe esta nova sequencia : 
o elefante matou a formiga. 

Esia sequencia esid correta tamo 
do ponto de vista lexical, como do sintatico 
ou do semaniico, pois todos os seus ele- 
mentos existem na li'ngua portuguesa, estao 
obedecendo as regras de sintaxc c possucm 
um sentido final. 

Mas o que isto tudo tern a ver com 
ocaso? 

Uma linguagem de programacao 
tern suas palavras rcscrvadas, seus operan- 
dos, suas funcOes e suas constantes (seus 
elementos lexicos, que numa linguagem de 
programacao c" chamado de Token). Possui 
lambem uma sintaxe. 

Um programa qualquer tern de ter 
um sentido, pelo menos o suficiente para 
gerar um eddigo executavel (ou para ser 
interpretado). 

Agora ja podemos definir a nossa 
"linguagem", i.e. , a forma da expressao que 
deverd ser utilizada pelo intcrpretador. 

Deverd haver : 

1) Parenleses : Tokens "(" e ")". 

2) Mulliplicacao c divisao : Tokens "*" e 
"/". 

3) Soma e sublracao : Tokens "+" e "-". 

4) FuncOes constantes e variaveis x e y : 
Tokens do tipo identificador, que o analisa- 
dor lexico vai descobrir a que categoria 
pertencc verificando em uma tabcla dc 
sfmbolos. 

5) Jaque algumas funcoes tcrao mais de um 
parametro, vai exislir o Token "," como 
scparador. 

6) Os operadores unarios "+" e "-". 

7) Constantes numericas. 

Com isto ja tcmos os seguintes 
Tokens definidos : ••("•')", "*'\7", 
",","+","-", identificadorcs c constantes 
numericas. 

Mas como difcrenciarmos os 
operadores "+" e "-" unarios dos binarios 
(com dois opcrandos) ? 

Isto e" simples: pelo scu contexto. 
Sera mais facil verificar isto vendo os dia- 
gramas sinuiticos, que v3o dos diagramas 1 
ao4. 



Um diagrama sintdtico 6 a 
representacSo grafica de uma sintaxe. 

Nos diagramas sintaticos, o que 
esta em um ci'rculo (ou cm uma figura com 
extremidades arrcdondadas) 6 um Token. 
Este n3o pode ser mais expandido (apesar 
dc se podcr expandir mais nos casos de 
identificadores e constantes numericas, 
por6m esta expansao fica ao encargo do 
analisador lexico). 

O que esta em um retingulo pode 
ser expandido em um outro diagrama 
sintatico. 

O mdtodo de descida recursiva 
consiste em fazer com que cada diagrama 
scja uma rotina que serd chamada para fazer 
a expansao do seu diagrama, chamando 
outras rolinas para fazer a expansao dos 
seus "sub-diagramas". 

Para cntendermos melhor como 
se implcmcnta o digrama no Pascal, usare- 
mos como exemplo o analisador de 
expressocs. 

Para isto, serd dada uma 
introducao de como ulilizd-lo. 

O ANALISADOR DE EXPRESSOES. 

O analisador de expressocs esia 
divididoem3arquivosquesao"gIbldef.p", 
"compila.p" c "interpr.p", que devem ser 
inclui'dos ncsla ordem. 

O primciro arquivo cont^m as 
dcfinigOes globais e uma rotina dc 
inicializacao que se chama "inicio". 

O scgundo contdm a rotina dc 
"compila^ao". N3o entenda por 
compilacao a gcracao de um codigo 
executavel, mas sim uma codificacao mais 
facil de se inlerpreiar c com isto faz-se a 
vcrificacao siniaiica daexpressao. 

O nome da funcao e "compila" e 
reccbe uma string e devolve a situacjlo da 
"compilacao", i.e., qual foi o erro c, sc nao 
houve, rctorna "0". 

Os erros sdo : 

1) Estouro dc conslantc 

2) Token irrcconheci'vel 

3) Identificador dcsconhccido 

4) Token incspcrado 

5) Parcntcscs n3o fechado 

6) Parenleses nao abcrio 

7) Numero dc paramciros invalido 



O lercciro arquivo content o inler- 
pretador em si, que sc chama "intcrpreta", 
tendo "x" e "y" como parametros, rctor- 
nando o valor calculado e a situacao na 
variavel "status". 

Esta variavel vai nos indicar seo 
rcsulladoe valido ou nao, c se n3o, qual foi 
ocrro. 

Os cddigos s3o (por mascara de 
bits): 

SO 1 divisao por zero. 

S02 foradefaixa. 

$04 estouro de exponenciacao. 

$08 crro com logan'tmo. 

$10 erro com potencia. 

$20 erro em raiz. 

O exemplo de uso e o artigo men- 
cionado anteriormente. 

A IMPLEMENTACAO 

Na listagem do "compila.pas" 
vccm-se da linha 15 at6 a linha 41 a tabela 
de sfmbolos do interprctador, i.e., os iden- 
tifique ele 6 capaz de rcconhecer. Nela 
cstao contidas as constantes, funcoes e os 
elcmentos "x" e "y". 

As linhasque v3ode75a215s3o 
do analisador 16xico. Este identificara os 
Tokens, e se o Token for urn idcniificador, 
sera feita uma busca na tabela dc sfmbolos 
para descobrir qual do tipoe qual eo valor, 
ou o numero de parametros (para funcOes) 

Foi usada uma busca sequential 
para facilitar a implementac3o de novas 
funcOes (urn bom exercfcio). 

O diagrama sintatico 1 correspon- 
de ao proccdimento "cxpressao" declarado 
na linha 219 e tern seu corpo contido nas 
linhas que vao de 301 a 305 (funcao 
"expressao" declarada em 1 1 e com corpo 
em 252 a 266 no interprctador) que chama s 
o procedure "mult" (funcao "mult" no in 
tepretador) e vai repctir o loop se o Token 
atual e um "mais" ou um "menos", caso n3o 
haja erro. 

O diagrama sintatico 2 correspon 
dc ao proccdimento "mult" que esta decla 
rado na linha 228 com corpo nas linhas de 
293 a 299 (funcao "mult" declarada em 16," 
com corpo cm 228 a 250 no interprctador) 
que chama o procedimento "fator" (no 
in tepretador), pedindo depois um novo 
Token e repetindo o loop, se este for um 
"vezes" ou um "divisao", caso nao haja 
erro. 

O diagrama 3 corresponde ao 
procedimento "fator" que esta declarado 
na linha 230, com corpo nas linhas de 262 
a 291 (funcao "fator" declarada em 21 e 
com corpo em 200 a 226 no interprctador) 
que faz a scquinle sequencia: 

1) Pede um Token ao analisador ldxico. 

2) Se este for das classes "mais" ou 
"menos", entao pede um novo. 



3) Casoeste seja "idntf_fc", que indica uma 
funcao, entao chama a "fc_trat". 

Caso este seja da classe 
"abr_prls", que indica abertura de paren- 
teses, entao chama-se o procedimento 
"cxpressao" e testamos se houve um 
fechamento de parenteses. 

Note que esta 6 uma chamada 
recursiva. 

Caso seja o resto, i.e., os outros 
Tokens validos para este contexto, 
accilamo-os scm fazer mais nada. 

O diagrama 4 corresponde ao 
procedimento "fc_trat" que esta declarado 
na linha 232 com corpo nas linhas de 237 a 
260 ( funcao "fc_trat" declarada em 25 com 
corpo de 186 a 198 no interprctador) que 
faz a seguinte sequencia : 

1) Pede um Token ao analisador 16xico. 

2) Testa se este e um parenteses. 

3) Faz um loop chamando o procedimento 
"expressao" e contando o numero: de 
parametros atd que o Token testado seja 
diferente de " virgula" ou haja um'erro. 

4) Testa o numero de parametros. 

5) Testa se o token atual e" "fch_prts" que 
indica que o parenteses esta fechado. 

O interpretador, como ja devem 
ter notado, n3o 6 muito diferente na 
implementacao. 
As principals difcrencas s3o: 

1) Nas fases "expressao" e "mult" existem 
variavcis temporarias para acumular o re- 
sultado parcial, o tipo da prdxima operacSo 
e a chamada para o novo ni'vel 6 feita 
dirctamentc em uma operacao. 

2) Existe a funcao "fc_calcula" para calcu- 
lar as funcoes que fazem parte da 
expressao. 

3) N3o existem testes de sintaxe e 
semantica (a n3o ser testes de erros de 
execucao), nem chamadas ao analisador 
Idxico, o que nos faz ganhar tempo na 
interpretacao. 

A vantagem de fazer-se uma 
"compilacao" previa esta no fato de se fazcr 
a verificacao sintatica e semantica e a 
analise 16xica uma vez s6, mesmo pre- 
cisando usar os Tokens muitas vezes. 

Desta maneira economiza-se um 
tempo significante na interpretacao. 

Podc-se fazer uma comparacao 
(que sera um bom exercfcio), conslruindo 
um analisador de expressoes que faca as 
andlises Idxica, sintatica e semantica 
enquanto interpreta a expressao. 

Uma obscrva?3o: os interpreta- 
dorcs Basic fazem uma analise 16xica 
previa do programa que esta sendo traba- 
lhado, conhecida como forma compactada 



de se salvar um programa, c quando se 
manda 1 istar o programa em quest3o na tela, 
ele os transforma para formato ASCII, tro- 
cando os sfmbolos pelos seus identifica- 
dores correspondentes, pordm n3o e feita 
uma analise sintatica previa. Esta 6 feita a 
tempo de interpretacao, provocando perda 
de tempo durante os loops. 

Nesta implementacao a analise 
semantica ficou muito unida com a analise 
sintatica, o que n3o acontecc muito com os 
compiladores, pois 6 o analisador 
scmantico que controla a geracSo de 
c6digo, e sempre 6 o analisador sintatico 
quern rege lodas as acocs (inclusive nesle 
interpretador). 

Uma coisa bem intercssante i que 
sc tomarmos algumas precaucSes, pode- 
mos reunir todos os includes apresentados 
em um unico. 

Note que o interpretador accita 
fun?0es de duas variaveis, estas cha- 
mando-se'x' e 'y'. 

Como se pode ver, apesar de nao 
ser trivial, a leitura dc expressoes 
matematicas pclo teclado 6 possfvel de ser 
feita (obviamente com muito bom senso). 
Em Basic, islo seria impossfvel, pelo 
menos no nfvel do interpretador apresen- 
tado, que e bastante sofisticado. 

Espcro que este artigo seja de scu 
agrado e que de a ideia inicial de como 
funciona um intepretador (e um compila- 
dor) ao leitor, e espero que, em uma oulra 
oportunidade, possa editar algo mais sofis- 
ticado como, por exemplo, um montador 
Assembly. 
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Arquivo : coipila.pas 



pas- I i 



7 

8 
9 
1. 
il 
12 
13 
14 
15 
16 
17 
18 
1? 
20 
21 
22 
23 
24 
25 
26 
27 
28 
27 
36 
31 
32 
33 
34 
35 
36 
37 
38 
3? 
N 
41 
42 
43 
44 
45 
46 
47 
48 
49 

se 

51 
52 
53- 

54 
55 
56 
57 
58 
5? 
60 
il 
62 
63 
64 
65 
46 
67 
68 
6? 
7» 
71 
72 
73 
74 
75 
76 
77 
78 
79 



function coipilat cadeia : tipo.cadeia ) : bate ; 
tape 

t ipo-fc.cte.xg = record 

noK.idntf : stringC tai.idntf ] ; 
case idntf.dasse : tipo.token of 
idntf.fc : ( n.parai : bate ): 
idntf.cte : ( cte.valor : real ); 
end; 



const 

nui.idntf = 23 
tab.fc.cte.xa ■ 
( 

( noie.idntf 

( noie.idntf 

( noie.idntf 

( noie.idntf 

( noie.idntf 

( noie.idntf 

( noie.idntf 

( noie.idntf 

( noie.idntf 

( noie.idntf 

( noie.idntf 

( noie.idntf 



arraa [ 1 .. nui.idntf ] of tipo.fc.cte.xa = 



i noie 

( noie. 

( noie. 

( noie 

( note 

( noie. 

( noie 

( note 

( noie 

( noie 

( noie 



idntf 
idntf 
idntf 
idntf 
idntf 
idntf 
idntf 
idntf 
idntf 
idntf 
idntf 



'lbs' 
'cos' 

'cossec ' 
'cota' 



Offl 

'In' 
'loa' 
■ax' 
'■in ' 

'•od' 
'pi' 

>»'. 
rand 

'round ' 

W 

'sign' 

'sin 

'sgrt ' 

V 

'trunc' 

'x' 

y 



idntf.dasse : idntf.fc 
idntf.dasse : idntf.fc 
idntf.dasse : idntf.fc 
idntf.dasse : idntf.fc 
idntf.dasse : idntf.cte 

cte.valor : 2.7182818284 ] 
idntf.dasse : idntf.fc 
idntf.dasse : idntf.fc 
idntf.dasse : idntf.fc 
idntf.dasse : idntf.fc 
idntf.dasse : idntf.fc 
idntf.dasse : idntf.fc 
idntf.dasse : idntf.cte 

cte.valor I 3.14155265359 I 



idntf.dasse 
idntf.dasse 
idntf.dasse 
idntf.dasse 
idntf.dasse 
idntf.dasse 
idntf.dasse 
idntf.dasse 
idntf.dasse 
idntf.dasse 
idntf.dasse 



idntf.fc 

idntf.fc 

idntf.fc 

idntf.fc 

idntf.fc 

idntf.fc 

idntf.fc 

idntf.fc 

idntf.fc 

idntf.l > 

idntf.2 I 



pos.cadeia : bate ; 

tip.cadeia- '• tipo.cadeia ; 

pont.lst.atual : tipo.pont.lst.token ; 

expr.erro : boolean ; 



procedure inicializa; 
var 

a.;; : byte ; 

p.aux : tipo.pont.lst.token ; 

begin 

ihile cabeca-lst O nil do 
begin 

p.aux :- cabeca.lst ; 

cabeca.lst - a cabeca.lst*. proxiio 

dispose! p.aux ) 
end; 

ne»( cabeca.lst )j 
pont.lst.atual := cabeca.lst ; 
pont.lst.atual'.proxiio := nil j 

pos.cadeia := 1 ; 
expr.erro := false ; 



end; 



cadeia := cadeia * 118 



function lexico : boolean ; 
var 

v.aux, base, valor : real ; 

ieio,i : byte ; 

sinal : integer 



n.parai 
n .par ai 
n.parai 
n.parai 



n.parai 
n.parai 
n.parai 
n.parai 
n.parai 
n.parai 



n.parai 
n.parai 
n.parai 
n.parai 
n.parai 
n.parai 
n.parai 
n.parai 
n-parai 



1 ), 
i >, 

1 I, 
2). 

2 ), 
2), 



2 ), 
1 ), 
1 ), 
1), 
1 ), 

!!: 

1), 
1), 



81 
82 
83 
84 
85 
86 
87 
88 
89 
It 
91 
92 
93 
94 
95 
96 
97 
78 
99 

m 
in 

1«2 
i«3 

1)4 
1«5 
186 
117 
108 
119 
il« 
111 
112 
113 
114 
115 
116 
117 
118 
119 
12» 
121 
122 
123 
124 
125 
126 
127 
128 
129 
131 
131 
132 
133 



138 
139 
141 
141 
142 
143 
144 
145 

ill 
IS 

151 
151 
152 
153 
154 
155 
156 
157 
158 
1 



begin 

ne«( pont.lst.atual'.proxiio ); 
pont.lst.atual := pont.lst.atual*. proxito ; 
pont.lst.atual*. proxiio :- nil ; 



lexico := true ; 

•liile cadeia! pos.cadeia 1 in [ 899, 
pos.cadeia := sued pos.cadeia ! 



case cadeia! pos.cadeia J of 
a 



' J do 



begin 
i := 



*. ' '» ' 



a' .. r ] do 



while cadeia! pos.cadeia ] in 1 'a' 
begin 

i :- sued i ) ; 

tip.cadeia! i 1 :- cadeia! pos.cadeia 1 ; 

pos.cadeia := sued pos.cadeia ) 
end; 

tip.cadeia! * ] "•= chr( i ) ; 

■eio := 1 ; 

while ( tab-fc.cte.xa! leio L noie.idntf tip.cadeia ) and 
( ieio < nui.idntf ) do 
■eio := sued ieio ); 

if tab_fc.cte.xa! ieio ]. noie.idntf ' tip.cadeia then 
begin 

pont-lst.atual'.dasse ':= tab.fc.cte.xa! ieio ]. idntf.dasse ; 

case pon.-lst-ituir.dis9- of 

idntf.fc : 

pont.lst.atual .idntf.fc.cod := ieio ; 

idntf.cte : 

pont-lst.atuar.idntf.ctc.valor := 

tab.fc.cte.xa! ieio J. cte.valor 

end 
end 
else 
begin 

pont.lst.atual*. dasse := erro ; 

pont.lst.atuil'.n.erro := 3 ; 

lexico := false 
end; 

pos.cadeia := pred( pos.cadeia ) 



end; 

1* .. V , 

begin 

pont.lst.atual*. dasse := cte ; 
valor := . ; 

ihile cadeia! pos.cadeia J in ! '.' .. '9' J do 
begin 

valor '•- valor-1. . ord( cadeia! pos.cadeia ] ) - 

pos.cadeia '•= sued pos.cadeia ) 
end; 

if cadeia! pos.cadeia ] = '.' then 
begin 

base := ».l ; 

pos.cadeia -= sued pos.cadeia ) ; 

while cadeia! pos.cadeia ] in t '.' .. '9' J do 
begin 

valor := valor . ( ord( cadeia! pos.cadeia ] ) 

base := base/1... ; 

pos.cadeia := sued pos.cadeia ) 
end 
end; 

if upcase! cadeia! pos.cadeia ] ) = 'E' then 
begin 

pos.cadeia := sued pos.cadeia ) ; 

v.aux s= ».♦ ; 



48 I/base; 
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sinal :- i ; 

if cadeiaC pos.cadeia ] in [ '*','-' ] then 

begin 

if cadeiaC pos.cadeia ] = '-' then 
sinal := -i ; 

pos.cadeia := sued pos.cadeia ) 
end; 

■hile cadeiaC pos.cadeia ] in [ '♦' .. '?' ] do 

begin 

v.aux := v.aux*14 » ord( cadeiaC pos.cadeia ] 
pos.cadeia := sued pos_cadeia ) 

end; 

if v.aux > 37.4 then 
begin 

pont.lsLatual'.classe := erro ; 

pont.lst.atual*.n.erro := i ; 

lexico := false 
end 
else 

valor := valor»pot( abs( valor), sinal*v_aux ) 
end; 

if pont.lsLatuar.dasse () erro then 
poBt.lsLatual'.cte.valor := valor; 



141 

142 

163 

164 

165 

166 

167 

168 

16? 

174 

171 

172 

173 

174 

175 

176 

177 

178 

17? 

184 

181 

182 

183 

184 

185 

186 

187 

188 pos.cadeia := pred( pos-cadeia ) 

18? 

191 

1?1 

1?2 

i?3 

1?4 

1?5 

i?6 

1?7 

1?8 

1?? 

244 

211 

212 

2*3 

2*4 

2t5 

216 

247 

2t8 

21? 

21* 

211 

212 

213 

214 

215 end; 

216 

217 

218 CIA- ) 

21? procedure expressao ; 

221 

221 procedure expr.trat.erro( muuerro : byte 

222 begin 

223 pont.lsLatual'.classe := erro ; 

224 pont.lst.atual'.n.erro 1= nui.erro ; 

225 expr.erro := true 

226 end; 
227 

228 procedure tult; 
22? 

236 procedure fat or; 
231 

232 procedure fc.trat; 

233 var 

234 p.aux : tipo.pont.lst.token ; 

235 coat : bgte ; 
236 

237 begin 

238 p.aux := pont.lst.atual ; 
23? 
241 if lexico then 



end; 
Kit : 

, , pont.lsLatuar.dasse := f ii_lnh ; 

( ( pont.lst.atual'.dasse ■- iais ; 

, , pont.lst.atual'.dasse := lenos ; 

pont.lst.atual'.dasse := vezes ; 

pont.lst.atual'.dasse := divisao ; 



else 



pont.lst.atual'.dasse := abr.prts ; 
pont.lsLatual'.classe := fch.prts ; 
pont.lsLatual'.classe := virgula ; 



begin 

pont.lsLatuar.dasse := erro ; 
pont.lsLatual'.n.erro := 2 ; 
lexico := false 
end 
end; 
Pos.cadeia := sued pos.cadeia ) 



241 
242 
243 
244 
245 
246 
247 
248 
24? 
254 

48; 251 

252 
253 
254 
255 
256 
257 

258 end; 
25? 
264 begin 

261 if lexico then 
begin 

if pont.lst.atual'.dasse in [ iais,ienos ] then 
expr.erro := not lexico ; 



if pont.lst.atual'.dasse abr.prts then 

expr.trat.errot 6 ) 
else 
begin 

cont := 4 ; 
repeat 

cont :- sued cont ) ; 
expressao 
until ( pont.lsLatual'.classe virgula ) or expr.erro ; 

if pont.lst.atual'.dasse fch-prts then 

expr.traLerrol 5 ) 
else if cont tab.fc.cte_xyC p.aux'. idntf.fc.cod ].n_parai then 

expr.trat_erro( 7 ) 



else 



end 



expr.erro :- true 



if not expr.erro then 

case pont.lst.atuar.dasse of 
abr_prts : 
begin 

expressao ; 

if not expr.erro then 

if pont.lsLatuar.dasse fch.prts then 
expr.traLerrol 5 ) 
end; 
idntf.fc : 

fc.trat ; 
cte 

idntf.l , 
idntf.2 , 
idntf.cte : 



else 
end 



expr.trat.errot 4 ) 



262 
263 
264 
265 
266 
267 
268 
26? 
274 
271 
272 
273 
274 
275 
276 
277 
278 
27? 
284 
281 
282 
283 
284 
285 

286 end 

287 else 

288 expr.erro := true 
28? end; 

2?4 

2?1 begin 

2?2 repeat 

2?3 fator; 

2?4 if not expr.erro then 

2?5 expr.erro •' not lexico 

2?6 until not ( panLlsLatual'.dasse in [ vezes,divisao ] ) or expr.erro 

2?7 end; 

2?8 

2?? begin 

344 repeat 

341 iult 

342 until not ( pont.lst.atual'.dasse in C iais,ienos 1 ) or expr.erro 

343 end; 

344 {1A+ ) 
345 

346 

347 begin 

348 inicializa ; 
34? 

314 expressao ; 
311 

312 if ( pont-lsLatual'.dasse = f ii.lnh ) and not expr.erro then 

313 eoipila := 4 

314 else if expr.erro then 

315 eoipila := ponLlst.atual'.n.erro 
314 else 

317 cotpila := 8 

318 end; 
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Arquivo : interpr.pas 



Pag. : i 



1 
2 

3 function interprets! X,Y : real ; var status : byte ) : real ; 

4 const 

5 quasczero - 8.888991 ; 
6 

7 var 

8 ponLlsLatual : tipo.pont.lsLtaken ; 
9 

18 CIA- ) 

11 function expressao : real ; 

12 var 

13 tip.valor : real ; 

14 sinal : integer ; 
15 

16 function iult : real ; 

17 var 

18 tip.valor, au;< : real j 

19 lultipli cacao : boolean ; 



21 function fat or : real ; 


22 var 






23 


si 


ial : real ; 


24 






25 function fc.trat : real ; 


26 const 




27 
28 
29 var 


nui.iax.parai - 2 ; 






3* 


P- 


jux : tipo_pont.lst.token ; 


31 


cont : byte ; 


32 
33 
34 fun 


tab-parai ! array [ 1 .. nunax.parai ] of real ; 


ction fccalcula : real ; 


35 var 






36 


aux : real ; 


37 






38 beg 


in 




3? 


case p.aux'.idntf.fccod of 


49 


1 


: { abs ) 


41 




fc.calcula := abs( tab.parait 1 ] ); 


42 


2 


: { cos 1 


43 




fc.calcula := cost tab.parai[ 11); 


44 


3 


: ( cossec ) 


45 




begin 


46 




aux :- sin( tab_parai[ 11); 


47 




if aux - then 


48 




begin 


49 




aux != quase.zero ; 


59 




status := status or S82 


51 




end; 


52 






53 




fc.calcula :- L.I / aux 


54 




end; 


55 


4 


J ( cotg ) 


56 




begin 


57 




aux := sin( tab-parait 11); 


58 




if aux = 1 then 


59 




begin 


a 




aux > s quase.zero ; 


61 




status := status or S82 


62 




end; 


63 






64 




fc.calcula :- cost tab.parail 1 ] ) / aux 


65 




end; 


66 


6 


: C exp } 


67 




if tab-parail 1 ] > 87.1 then 


68 




begin 


69 




status := status or M4 ; 


78 




fc.calcula := expt 87.8 ) 


71 




end 


B 




else 

fc.calcula " a expt tab.parait 11); 


74 


7 


: { In ) 


75 




if tab.parait iHM then 


76 




begin 


77 




status != status or S80 ; 


78 




fc.calcula := 


79 




end 


N 




else 
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81 




fc.calcula '•- ln( tab.parait 1 ] ); 


82 


8 


: C log 3 


83 




if tab.parait 1 1 (= then 


84 




begin 


85 




status != status or S08 ; 


36 




fc.calcula '•- 9 


87 




end 


88 




else 


89 




fc.calcula := lnt tab.parait 1 ] )/ 2.3K3B5W29? ; 


98 


9 


: { nx ) 


91 




if tab.parait 1 1 ) tab.parait 2 ] then 


92 




fc.calcula '•- tab.parait 1 ] 


93 




else 


94 




fc.calcula := tab.parait 2 ] ; 


95 


19 


: ( tin } 


96 




if tab-paraiC 1 3 < tab_parait 2 ] then 


97 




fccalcula s= tab.parait 1 ] 


98 




else 


99 




fc.calcula := tab.parait 2 ] j 


m 


11 


: t iod ) 


181 




if tab.parait 2 10 9 then 


192 




fc.calcula := tab.parait 1 ] 


103 




tab.parai[ 2 l«trunc( tab.parait 1 1/tab.parait 2 ] ) 


104 




else 


195 




begin 


106 




fccalcula := 9 ; 


107 




status := status or Mi 


108 




end; 


109 


13 


: t pott } 


110 




if tab.parait 11-9 then 


111 




fc.calcula :- 9 


112 




else if tab.parait 11)0 then 


113 




begin 


114 
115 
116 




aux :- tab.parait 2 Hint tab.parait 11); 




if aux ) 87.9 then 


117 




begin 


118 




status := status or S10 ; 


119 




fc.calcula s= expt 87.0 ) 


128 




end 


121 




else 


122 




fc.calcula '•- expt aux ) 


123 




end 


124 




else 


125 




begin 


126 




aux 1* tab.parait 2 ]Mn( tab.parait 11); 


127 




if ( aux ( 87.0 ) and ( abst tab.parait 2 J > <= laxint ) then 


128 




if oddt trunct tab.parait 2 ] ) ) then 


129 




fc.calcula := - expt aux ) 


130 




else 


131 




fc.calcula '•- expt aux ) 


132 




else 


133 




begin 


134 




status '■- status or S10 ; 


135 




fc.calcula i= expt 37.0 ) 


136 




end 


137 




end; 


138 


14 


'• t rand ) 


139 




fccalcula := randoit trunct tab.parait 1 ] ) ) ; 


140 


15 


: C round ) 


141 




fccalcula := roundt tab.parait 11); 


142 


16 


: t sec 1 


143 




begin 


144 




aux '■- cost tab.parait 11); 


145 




if aux - 8 then 


146 




begin 


147 




aux := quase.zero ; 


148 




status ■- status or M2 


149 




end; 


150 






151 




fccalcula ■- 1.0 / aux 


152 




end; 


153 


17 


: C sign ) 


154 




if tab-parait 1 J = 9.9 then 


155 




fccalcula != 0.8 


156 




else if tab-parait 1 ] > then 
fccalcula := +1.9 


157 




158 




else 


159 




fc.calcula '■- -1.9 ; 


160 


18 


: C sin ) 



fc.calcula :- sin( tab.parait i ] ); 
: C sqrt ] 

if tab.paraii i ] < 8 then 
begin 

status '■= status or S28 ; 

fc.calcula := 8 
end 
else 

fc.calcula := sqrt( tab.parai[ 1 ] ) ; 
: { tg ] 
begin 

aux := cos( tab.parai[ 1 ] ) ; 

if aux - 8 then 

begin 

aux := quase.zero ; 
status := status or S82 

end; 

fc.calcula := sin( tab_parai[ 1 ] ) / aux 
end; 

: C trunc ) 
fc.calcula := trunc( tab.parai[ i ] ) 



161 

162 19 

163 

164 

165 

166 

167 

168 

169 

178 28 

171 

172 

173 

174 

175 

176 

177 

178 

179 

188 

181 21 

182 

183 end 

184 end; 
185 

186 begin 

187 p.aux := pont.lst.atual ; 
ififl 

pont.lst.atual !* pont.lst.atuar.proxiio ; 



189 

199 

191 

192 

193 

194 

195 

196 

197 

198 end; 

199 

288 begin 

201 pont.lst.atual '•- pont.lst.atuar.proxiic ; 

212 

283 

284 

285 

286 

287 

288 

pont.lst.atual := pont.lst.atuar.proxiio 
end; 



cont != 8 ; 
repeat 

cont l- sued cont ) ; 

tab-parai C cont ] s= expressao 
until pont.lst.atuar.dasse virgula ; 

fc.trat :- fc.calcula 



sinal :- +1.8 ; 

if pont.lst.atual*. classe in [ iais,ienos ] then 

begin 

if pont.lst.atual*. classe = ienos then 
sinal := -1.8 ; 



218 

211 

212 

213 

214 

215 

216 

217 

218 

219 

228 

221 

222 

223 

224 

225 

226 end; 

227 

228 begin 

229 

238 

231 



case ponLlsLatual*. classe of 
abr.prts 

= sinal*expressao ; 



fator 
idntf.fc 

fator 
idntf.i 

fator 
idntf.2 

fator 
idntf.cte 

fator 
cte 

fator 
end 



= sinal*fc.trat ; 
• sinaUX ; 

- sinaUY ; 

- sinal'pont.lst.atuar.idntf.cte.valor ; 

- sinal*pont.lst.atuar.cte.valor 



tip.valor := +1.8 ; 
lultiplicacao ■- true ; 
repeat 

232 if lultiplicacao then 

233 tip.valor := tip.valor»fator 

234 else 

235 begin 

236 aux := fator ; 

237 if aux = 8.8 then 

238 begin 

239 status ss status or Ml ; 
248 aux := quase_zero 



241 
242 
243 
244 
245 
246 
247 
248 
249 
258 
251 
252 

tJJ 

254 
255 
256 
257 
258 
259 
268 
241 
262 
263 
264 



end; 



end; 

tip.valor i= tip.valor / aux 
end; 

pont.lst.atual :- pont.lst.atuar.proxiio ; 
lultiplicacao :- pont.lst.atuar.dasse : vezes 
until not ( pont.lst.atuar.dasse in t vezes.divisao ] 

•ult := tip.valor 



267 
268 
269 
278 
2/1 
272 
273 
274 
275 
276 



begin 

tiP-valor ■'= 8 ; 
sinal '•- +1 ; 
repeat 

tip.valor :- tip.valor + sinalsiult ; 

if pont.lst.atual*. classe = lais then 

sinal '■- +1 
else 

sinal := 1 

until not ( pont.lst.atual*. classe in [ iais,ienos ] 

expressao := tip.valor 
end; 

m ) 

begin 

status := 8 ; 

pont.lst.atual :- cabeca.lst ; 



end; 



interpreta := expressao 



frquivo : glbldef.pas 



pag. : 1 



1 

2 const 










3 tai. 

4 

5 tgpe 


dntf = 


8; 














6 tipo 


-cadeia 


; stringt 188 ] ; 






7 tipo 


.token s 


( wis, ienos, vezes, 


ivisao,abr.prts,fchj>rts 


virgula, 


8 




cte, idntf.fc, idntf.cte, idntf.i, idntf.2,fii 


.lnh.erro ); 


9 tipo 


.pont.lst.token = "tipo.lst.token ; 




18 tipo 


.Ist.tok 


in - record 






11 




prox. no : t 


po-pont.lst.token ; 




12 




case classe 


: tipo.token of 




13 




cte :( cte. 


alar : real ) ; 




14 




idntf.fc :( 


idntf.fc.cod : byte ) ; 




15 




idntf.cte : 


idntf.cte.valor : real 


; 


V 




erro : ( n. 
end; 


'rro : byte ) ; 




18 










19 










28var 










21 cabeca.lst : 


tipo.pont.lst.token 


t 




22 










23 










24 procedure inicio 


t 






25 begin 










26 cabeca.lst : 


= nil 






27 end; 










28 










29 










38 funct ion 


pot ( a, 


b : real ) : real ; 






31 begin 










32 pot 


:= exp( b»l 






33 end; 










34 










35 
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UTILIZANDO O DATA CORDER 



A grandc maioria dos usuarios do MSX ainda irabalha com 
urn gravador cassete, o Data Corder, como forma de ar- 
mazenamento de dados, devido ao baixo custo que o mesmo 
apresenla. 

Todos n6s sabemos que existcm meios melhorcs, mais 
confidveis e, principalmenic, mais r^pidos de se gravar e rccuperar 
dados, mas a intencao deste artigo e" apresentar informacoes que 
poderao aumentar o desempenho deste pcrif6rico. 

Pra gravarmos e lermos dados do cassete, o MSX possui os 
seguintes comandos: 

CLOAD - Le urn programa em BASIC 
CSAVE - Grava urn programa em BASIC 
MERGE - Junta o programa BASIC presente na mem6ria 
com urn programa lido do cassete gravado em ASCII 
SAVE - Grava urn programa no formato ASCII 
LOAD - Le urn programa gravado no formato ASCII 
BLOAD - Le um programa em Assembler 
BSAVE - Grava um programa em Assembler 
Para verificarmos um programa gravado em BASIC temos 
o comando CLOAD? 

Para acionarmos o motor do cassete, ou a sua parada, 
usamos o comando MOTOR. 

GRAVANDO OS DADOS 

Para gravar um programa em BASIC na fita cassete, 
podemos utilizar CSAVE ou SAVE. 
Exemplo: 

CSAVE "nomearq" ou SAVE "CASmomearq" 
A gravacao em formato ASCII 6 mais dcmorada mas 
apresenta a vantagem que o programa podera vir a ser adicionado 
a um outro, ou seja, a medida que voce vai desenvolvendo o seu 
programa, vai efeluando a sua gravacao em formato ASCII e, ao 
final, efetua um MERGE de todos os blocos gravados, obtendo, 
assim, um unico programa. 

Ao utilizarmos o comando MERGE devemos tomar o 
cuidado para que as linhas do programa que vai ser lido n3o sejam 
as mesmas do programa que ja se encontra na mem6ria. Caso isto 
venha ocorrer, voce perdera linhas de programacao do programa 
que ja se encontra na mem6ria do micro. 

Quando efetuamos a gravacao de um programa podemos 
especificar, tambem, a velocidade de gravacao, ou seja a taxa de 
transmissao de dados para o cassete, que podera ser de 1200 ou 
2400 bauds. Ao ligarmos o MSX, o mesmo ja se encontra pro- 
gramado para assumir uma taxa de transferencia de 1200 bauds, 
que e a velocidade recomendada pelos fabricantcs, pois apresenta 
um grau de confiabilidade maior, tendo em vista que os dados 
transmitidos scrao mais distribufdos ao longo da fita cassete. 
Quanto maior for a velocidade de transferencia, menor sera o 
espaco utilizado ao longo da fita. 

Assim, para gravarmos um programa BASIC com uma taxa 
de 2400 bauds, utilizariamos o comando CSAVE do seguinte 
modo: 

CSAVE"nomearq", 2 onde ',2' especifica uma taxa de 
transferencia de 2400 bauds. 

Da mesma forma podemos operar com o comando 
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SAVE"CAS:nomcarq" para alterarmos a taxa de transmissao. 
Exemplo: 

SAVE"CAS:nomearq",2 

Ao utilizarmos os comandos SAVE c LOAD, para a 
gravacao de arquivos no formato ASCII, devemos indicar qua! o 
dispositivo de saida/entrada, tendo em vista que os mesmos s3o 
utilizados para a leitura e gravacao de dados em disco. 

LENDO DADOS 

A leitura de dados do cassete pode ser feita com um dos 
comandos abaixo: 

CLOAD - Le o primciro arquivo em BASIC encontrado 

CLOAD "nomearq" - L6 o arquivo especificado 

LOADXAS:" - Le o primciro arquivo em BASIC encon- 
trado 

LOAD"CAS:" ,R - Leoprimeiro arquivo em Basic encon- 
trado e roda-o automaticamente ap6s o carregamento 

LOAD"CAS:nomcarq" - Le o arquivo especificado 

LOADXAS :nomearq",R - Le o arquivo especificado e 
roda-o ao final do carregamento. 

RUNXAS:" - Le o primeiro arquivo encontrado e roda-o 
automaticamente 

RUNXAS :nomearq" - Le o arquivo especificado e roda- 
o automaticamente 

Como voce ja deve tcr notado, para ler um programa com 
o comando CLOAD, o mesmo devera ter sido gravado com 
CSAVE. Para ler um programa com LOAD, ou com RUN, o 
mesmo devera ter sido gravado com SAVE. 

O comando RUNXAS: " 6 muito utilizado para a leitura de 
jogos que possuem mais de um bloco e que tern um pcqueno 
programa em BASIC cuja funcao 6 efetuar o carregamento dos 
demais, evitando, assim, que se tenha que dar varios comandos de 
leitura. A funcao do comando RUNXAS:", que e* exatamente a 
mesma do LOADXAS:" ,R, tern a vantagem de n3o ser necessano 
dar o comando RUN ap6s o carregamento, pois o programa sera 
executado automaticamente. 

Na leitura voce n3o precisa se preocupar com a taxa de 
transmissao, pois isto e* feito automaticamente pelo computador 

JUNTANDO PROGRAMAS 

Juntar dois programas pode vir a ser muito util e poupar 
algum tempo de digitacao de rotinas que ja foram desenvolvidas e 
que se encontram armazenadas. Para tal existe o comando 
MERGE, que permite que um programa, gravado em formato 
ASCII, possa ser lido e intercalado com o progRama que ja se 
encontra na mem6ria do micro. 

A sintaxe do comando MERGE 6 a seguinte: 
MERGEX AS : nomearq" 

PROGRAMAS EM LINGUAGEM ASSEMBLER 

Para gravarmos um programa em ASSEMBLER usamos 
os comandos BSAVE e BLOAD. A gravacao de programas em 
Assembler exige uma sene de conhecimentos desta linguagem, 
sendo assunto de artigos que serao publicados nos prdximos 
numeros de CPU. 



I CONCURSO NACIONAL DE 
SOFTWARE PARA MSX 



A NEWSOFT INFORMATICA LTDA. lanca, para 
lodo o pais, o I Concurso Nacional de Software para MSX, com o 
objetivo dc abrir cspaco para a divulgac3o de novos lalcntos 
brasileiros. 

Poderao panicipar do concurso programadores de 
qualquer idade, profissionais ou nao da area de informitica de lodo 
o Brasil, sendo vedada a participacao no concurso de funcionarios, 
ou parentes, da empresa patrocinadora e/ou realizadora, bem como 
os mcmbros da "Comiss3o Julgadora". 

Os inleressados poderao panicipar com um ou mais 
programas, programados em Basic, Linguagem dc Maquina, ou 
qualquer outra, que versem sobre qualquer tema (jogos, aplicali- 
vos, utiliiirios, etc.), desde que sejam ineditos e de autoria do 
participante. 

Os programas deverao ser remetidos cm disco, ou fita, 
ate o dia 3 1 .12.88, data do cncerramento das inscricOes, acompan- 
hados de uma dcclarac3o de autoria, contendo os dados pcssoais, 
como nome, endcreco e telefone para conlato, do autor. 

Os trabalhos de sclecao e classificacao serao realizados 



por uma "Comiss3o Julgadora", designada pela empresa reali- 
zadora, sendo as suas decisoes irrevogaveis e iretrativeis. Como 
crildrio de avaliacSo para apuracao e classificacao serao observa- 
dos os seguintes ftens: 
a- criatividade; 
b- originalidade; 
c- adequacao do software ao mercado de informdtica. 

Todos os programas classificados, ou n3o, passarao a 
pertencer 3 Empresa realizadora, que se reserva ao direito de fazer 

uso que Ihe convier, podendo, ainda, ulilizar o nome dos 
comtemplados na divulgac3o do concurso, scm qualquer onus para 
a mesma. 

Os premios s3o: 

1 lugar - 1 drive 3 1/2 polegadas 

2 lugar - 1 microcomputador padr3o MSX 

3 lugar - 1 impressora 

O resultado sera divulgado atraves das rcvistas espc- 
cializadas da area, contendo a rclacao dos ganhadorcs. 

Os premios serao entregues pelo cartao nacional. 



I CONCURSO NACIONAL DE SOFTWARE 

PARA MSX 



REGULAMENTO 



A NEWSOFT INf ORMANCA ITDA. lanca em ravel nacional o I CONCURSO NACIONAL DE SOFT 
WARE PARA MSX 

OBJETIVO DO CONCURSO: Aowespaco para a divulgacao ae novos talenlos biasileitos. 
OUEM PODE PARTICIPAR: Podem participar piogiamadotes de qualquer idade, protissio 
nais ou nao da area de mlormdlica de lodo o Brasi! 

QUEM NAO PODE PARTICIPAR: Nao poaerao portiaoar ao concurso, lunciondnos ou po- 
denies Oa empresa Datrocinaooio etou realizadora. Pern como os memD'OS Oa "Comis 
soo Julgadoro 

COMO PARTICIPAR: Os inleressados podeido oarticipar com um ou mais programas. pro- 
gramaaos em Basic. Linguagem de Mdgumo ou qualquer oulra. que versem sobre qual- 
quer lema (logos, aplicalivos. utililbnos. etc) desde que seiam inedilos e oe auloria oo 
parlicipqnle. Os mesmos deverao se' remelidos em disco ou Ilia, ale o dia 30.12.80, aalo 
ae enceiramemo das inscucoes, acompanhados oe urro ' Declaracao de Autoria' con- 
tendo seus oaaos oessoais (nome enaereco e lelelone para conlato) 
DA SELECAO E CLASSIFICACAO: Os irabalhos de selecdo e classilicacdo serao realizados 
por uma "Comissdo Julgadora" designada pelo empresa realizadora. cu|a deasdo e ir 
revogdvel e irrelraldve 1 Goto cnlerio ae ovdliacdo para apuraijqo e classilicacdo. se- 
rao observaaos os seguintes ilens a) criatividade; b) originalidade; c) adequaqdo do 
sottwara ao mercado de irrlormdtlca. 

loaos os programas classilicados ou nao. passarao a perlencer a empresa realizqdora. 
que se reserva o direilo de lazer o uso que Ine convie'. podendo ainda ulilizar o nome 
dos conlempiaacs na divulgacoo do concurso sem quaiauer onus para a mesma 
DA PREMIAQAO: 1° lugar - um drive 3 1(2 oolegacas 

2° lugai — uma impressora 

3° lugar — um microcomputador badrdo MSX 
DO RESULTADO: resullaao sera aivulgado alraves aa mesmq revisla onde esld senoo 
cubLcoao esle regulamemo, no edicdo de laneiro ae 1989. contendo a relacdo acs 
aannadores 
DA ENTREGA DOS PREMIOS: Os premios seroo enlregues atraves do CARIAO NACIONAL 



FICHAI DE INSCRIpAO 



Nome: 
End.;_ 



Cidade. 
CEP; 



.UF: 



Titulo do Programa 



DECLARAQAO DE AUTORIA 

Declaro que o programa que estou enviando para oarlicipar 
do I CONCURSO NACIONAL DE SOFTWARE PARA MSX. e inedilo 
e de minha autoria 



Assinarura 

Remeta para NEWSOFT INFORMATICA LTDA 
— Rua Senador Danlas 117. Sola 736 — Rio 
de Janeiro — RJ - CEP 20031 



""FACA SUA 
INSCRIQAO 
HOJE MESMO! 



APOIO: 



PARTICIPE!| 



£ 



Cartao Nacional 



O Cartao que esta a seu lado 
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CONECTIVIDADE 
MSX-PC-MAINFRAME 



Victor Grytz 
MSX Informdtica 



Quando ha mais dc ires anos, ao mesmo tempo em 
que o padrao MSX era inlroduzido no Brasil, resolvcmos criar a 
MSX Informatica Ltda., especializada unicamente em MSX. 

Muitos nos chamaram de loucos, pois achavam que 
o MSX n3o passava de um video game de luxo. 

A ausencia de programas mais seiios, bem como a 
falla dos perifencos prometidos pelos fabricantes, faziam com que 
houvesse uma certa decepcao quanlo a consolidac3o do MSX no 
nosso pais. 

Hoje, passados estes anos iniciais, podemos com- 
provar que o nosso pioneirismos estava correto. Com mais de 2000 
pragramas disponfveis nas areas de lazcr, profissional, educa- 
tional, aceitando diversas linguagens, como Cobol, Turbo Pascal, 
Forth, Fortran, Ada, Lisp, C, Prolog, etc., al6m de possuir revistas 
cspecializadas, como esta, em t3o pouco tempo o MX se tomou o 
equipamento dc 8 bits mais vendido no pais. 

A conversao de programas famosos, como o 
dBASE II, Supercalc e Wordstar, com a grande vantagem de 
possibilitar o inlercambio de arquivos com micros de 16 bits do 
padrao IBM PC, consolidaram ainda mais a posicao do MSX no 
Brasil. 

A cada dia que passa 6 crescente o numcro dc empre- 
sasquc, sob diversas formas, se uliliza dos MSX parairansfcrcncia 
de dados com micros de 16 bits e mainframes. 

O servico de Vidcotcxto possui cerca de 10.000 
micros para ulilizac3o como terminal, possibilitando o acesso as 
suas informacoes a uma infinidade de profissionais e empresas, 
que, alem disso, o ulilizam para os servicos de correspondencia, 
f inancas e controle nos sous prdprios negocios. 

Para as pessoas que possuem um MSX proprio, o 
acesso ao Vidcotcxto, Cirandao e outras bases de dados, pode ser 
feita airaves dc um modem, com um bom programa dc 
comunicac3o, como o VTXMSX, por exemplo. 

Ncstes servicos podem ser encontradas 
informacoes para o uso diario, iroca de mensagens e inlercambio 
dc programas. Assim, uma pessoa de Sao Paulo pode se concctar 
a outra do Rio de Janeiro, Brasilia ou qualquer outra cidadc do 
mundo. 

Existem, ainda, outras formas de conexao para a 
troca dc arquivos e programas com outros computadores. Sao as 
redes e os cmuladores de terminal. No caso das redes, a Targus 
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permite a ligacao de atd 16 micros MSX em rede ligados a um IBM 
compativel, e os cmuladores de terminal da DDX e da Cibertron 
permitcm que atd 25 MSX possam compartilhar os recursos de 
hardware software do PC ou mainframe. 



A REDE TARGUS 



A Rede Targus possui um mulliplcxador dc canais 
projetado para gerenciar 16 portas seriais assincronas, atuando 
como gerenciador da rede econtrolando todo c qualquer acesso aos 
arquivos de dados. 

Seu sistema basico de transmissao e reccpc3o c fcito 
no formato "first in - first out", ou seja, o primeiro terminal que 
solicitar sera o primeiro a receber prioridade de resposta, e assim 
sucessivamente. 

O software, dcsenvolvido em Assembler, c capaz 
de gerenciar as solicitacoes de cada um dos 16 terminais, sem que 
haja degradacSo no tempo de processamento.Como o MSX n3o 
possui saida serial, foi desenvolvida, tambem, uma interface 
serial, que possui em sua estrutura interna uma eprom contendo 
roiinas dc iransmissao c rcccpc3o de dados nccessarias para a 
comunicacao dos MSX com o mulliplcxador e com o PC. 

Na rede, as tarcfas de atualizacao de arquivos, troca 
dc informacoes, gravacao de programas, etc. s3o processadas "on- 
line" cm ambicntc simulado de multiusuario. O sistema 6 exircma- 
mente facil de ser operado, possibilitando que lodos lerminais 
solicitem a manipulac3o do mesmo programa, que cada terminal 
manipule um programa diferente e que o mesmo arquivo de dados 
possa ser manipulado por varios terminais e varios programas; si - 
multaneamente 

Os lerminais da Rede Targus podem estar em 
distancias superiorcs a 500 metros, sendo interligados por uma 
rede de cabos coaxiais. O multiplexador, ou MUX, cusla cerca de 
135 OTN's e cada interface serial custa, aproximadamente, 25 
OTN 's. Acompanha o mulliplcxador dois softwares gerenciadores 
da rede, um em Cobol e outro em dBASE III. 



OS CARTUCHOS EMULADORES DDX E CIBERTRON 



Os cartuchos emuladores dc terminal DDX e Ci- 
bertron possuem um software residenle que posibilita aos micros 
da linha MSX a emulacao de terminais IBM PC (XT, ATou 386), 
alcm da emulacao de lerminais mainframe que possuam con versor 
de prolocolo. 

O canucho da Cibertron , por exemplo, possui uma 
scnc de caractcrfsticas, como emulacao de terminal do tipo VT52, 
sai'da ara impressora local, hardcopy de tela, velocidade de at6 
19200 bps, caracteres graTicos do IBM disponfveis no MSX, para 
permilir que programas como o dBASE III, Lotus 123 e muitos 
outros possam ser utilizados no terminal MSX. 



Estes cartuchos funcionam para dislancias mais 
curtas, atd 50 metros, e o scu custo 6 de cerca de 40 OTN 's cada um, 
mas nao devemos nos esquecer que, nestes casos, ha necesidadc de 
um software do tipo Mullilink, Pick, PCMOS, etc, na faixade 150 
OTN's. 

A grande vantagem das redes e emuladores de 
terminais MSX 6 que, a!6m de tcrcm um custo inferior a qualqucr 
terminal dcdicado existente no mercado, ainda possibilitam a 
utilizacao do micro para processamcntos locais, possibilitando 
rapidaemnte o retorno do investimcnto realizado. Dcste modo, 
com a entrada do MSX no restrito mercado das redes e terminais, 
fica consolidada a sua posicao de lider no mercado de 8 bits em tao 
pouco tempo, mais uma vez comprovando a nosssa crenca no 
potencial dcste equipamento. 
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CALCULO DE CIRCUITOS 
RESSONANTES L-C 



ANTONIO FERNANDO SHALDERS 



Um grande problema para quem lida com radio 
frequencia € o correto dimensionamento dos circuitos ressonantes 
do lipo indutor capacitor, pois este 6 altamente cn'tico. 

O programa apresentado dara uma imensa ajuda a radio 
amadores, estudanies de engenharia eletr6nica e afins, pois faz 
todos os cilculos relativos ao assunto com grande rapidez e con- 
fiabilidade. 

Assim que o programa comecar, aparecera um menu de 
opcoes. Faca a sua escolha, pressionando o numero em questao e, 
logo apos, pressione [RETURN]. 

A frequencia de ressonancia 6 deierminada quando as 
reatancias capacitiva e induliva dos components do circuito 
ressonante se igualam. 

Estas reatancias s3o dadas por: 



Xc=l/(2x7txFxQ 
Xl = 2xrcxFxL 



Xc e XI indicam as reatancias capacitiva e indutiva, 
respectivamente (em ohms). F indica a frequencia em Hertz, C 
indica a capacitancia em Farads, L a indutancia em Henrys e n vale 
3.141592654, aproximadamcnte. 

Igualando-se as duas equacoes, obtemos a formula 
geral para ressonancia: 



F=1/(2xttxSQRT(LxC)) 



O programa apresentado usa esta fdrmula. As unidades 
em questSo s2o as mesmas. 

No caso de operarmos com um capacitor variavel, 
podemos obter a faixa de frequencia coberta, pelo circuito res- 
sonante, e vice-versa. Isto 6 particularmente util na construcao de 



radio transmissores ou receptores de FM, por exemplo. 

J a o calcu lo de indu tores (ou bobinas) sempre foi muito 
problematico, mas o programa se sai muito bem em rclacao a isto. 

Para isso, utilizam-se duas f6rmulas especi'ficas, uma 
para cada relacao comprimento-diametro da bobina. Lembre-se 
que um pouco de bom senso 6 necessario quanto a isso. NSo va 
querer calcular um indutor com diametro de 1 mm e comprimento 
de 1 m! 

As formulas utilizadas pelo programa sao as seguintes 
(c 6 o comprimento e 1 o diametro): 



Se: 0.3 < c/d < 


1.0 






N = 


■ sqrl( (143 


xL > 


0*0.57) /(d A l 


.57)) 


Se: 


1.2 < c/d < 


8.0: 






N = 


= sqrt((137 


x L > 


0*0.863) /(d A 1.863)) 



N indica o numero de espiras, C o comprimento da 
bobina e D o diametro. 

Se a relacao c/d estiver fora dos intervalos acima 
mencionados, o resultado nao sei4 confiavel. 

Os resultados obtidos s3o extremamente confiaveis, 
pois varios indutores foram confeccionados segundo este m6todo 
e conferidos em uma ponte de indutancias da General Radio, de 
aproximadamente US$ 6,000.00 e o erro foi menor que 5% ! 

Se vocS desejar saber o fator de qualidade do indutor, 
basta usar a seguinte fdrmula: 

Q = (2xnxFxL)/R, onde R 6 a resistencia ohmica 
do fio. Esta opc3o n3o foi incluida no programa. Fica a seu criterio 
inclui-la ou n3o, pois o Q das bobinas calculadas gcralmente 6 
satisfat6rio. 

As bobinas s3o de sec3o circular e nuclco de ar. 
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PROGRAM LC 30 



Esle programa calcula os valores dc 
componentes para circuilos ressonan 
tes L-C, bem como as faixas dc ope- 
racao dos mesmos. Calcula tambcm as 
dimensoes dc indutorcscom secao 
circular e niiclco de ar. 

area de definicao de variaveis} 
VAR 

C1,C2.L.F1.F2:REAL: 
A :INrEGER; 

C :CHAR; 



{definicao da fun9io poienciacao) 

FUNCTION POT(B .E:REAL):REAL ; 
BEGIN 

POT := EXP(E*LN(B)) ; 
END; 



cilculo da frcquencia dc rcs&onancia ) 

PROCEDURE FREQUENCIA; 
BEGIN 

WRITELNe* CALCULO DA RESSONANCIA #'); 

WRITEIJM; 

WRTTECL (H) : '); READLN(L); 

WRITECC (F) : '); READLN(Cl); 

WRITELN; 

F1:=1;(2*PI , SQRT(L*C!)); 

WRITELN ('RESSONANCIA EM : ' J-l ,' IIZ'); 
END; 



{calculo da indutfneia) 

PROCEDURE INDUTANCIA; 
BEGIN 
WRITELN('# CALCULO DA INDUTANCIA *'); 
WRITEUN; 

WRITECF (HZ) ; '); READLN<F1); 
WRITECC (F) : •); READLN(C1); 
WRITELN; 

L:=SQR(1 /(2*P1 *F1 *SQRT(C1 ))); 
WR1TELNONDUTANCIA : '.L,' H'); 
END; 



{calculo da capacilancia} 

PROCEDURE CAPACITANCIA; 
BEGIN 
WR1TELN('# CALCUIX) DA CAPACITANCIA If] 
WRITELN; 

WRITECF (HZ) : '); READLN(F1); 
WRITECL (H) : '); READLN(L); 
Cl^SQRtl/Ci'PI'FI'SQRTfL))); 
WRITELN; 

WRTIELNCCAPACiTANCIA : ',C1,' F - ); 
END; 



(calculo da faixa de frequencia em 
funcao dc um capacitor variavel } 



PROCEDURE F FREQ; 
BEGIN 

WRITELNCK CALCULO DA FAKA DE FREQUEN- 
CIA «"); 

WRITELN; 

WRITECCAPACITANCIA MINIMA (F) : '); 
READLN(Ct); 

WRITECCAPACrrANCIA MAXIMA (F) ; '); 
READLN(C2); 

WRITECINDUTANCIA (H) : '); READLN(L); 

Fl :- 1 /(2*PI*SQRT(L*C1 )); 

Fi-l/tZ'PI'SQRTd.'d)); 

WRITELN; 

WRITELNCFREQ. MINIMA : '.F2,' HZ - ); 

WRITELNCFREQ. MAXIMA : '.Fl. - HZ'); 
END; 



{calculo da faixa de capacilancia em 
funcaodc uma frequencia variavel J 

PROCEDURE F CAP; 
BEGIN 

WRITELN('# CALCULO DA FAIXA DE CAPACI- 
TANCIA #'); 

WRITELN; 

WRITECFREQUENCIA MINIMA (HZ) : '); 
READLN(F1); 

WR1TECFREQUENC1A MAXIMA 012.) : '); 
READLN(F2); 

WRITECINDUTANCIA (H) : '); READLN(L); 

CI :-SQR(l/(2'Pl«Fl -SORTCL))); 

C2:-SQR(1/(2*PI«F2*SQRT(L))); 

WRITELN; 

WRITELNCCAPACITANCIA MIN : ',C2.' F'); 

WRITELNCCAPACITANCIA MAX : '.CI," F'); 
END; 



{cilculo da bobina} 

PROCEDURE BOBINA; 
BEGIN 

WR1TELN('# CALCULO DA BOBINA #'); 

WRITELN; 

WRITELN('# SECAO CIRCULAR / NUCLEO DE 
AR#'); 

WRITELN; 

WRiTECINDUTANCIA (ull) : '); READLNfL); 

WRITECDIAMETRO (cm) ; '); READLN(CI); 

WRITECCOMPRIMENTO (cm) : ');READLN(C2); 

{escolha da formula cm funcao 
do diametro e do comphmenio} 

Fl :«C2/C1 ; 

IF ( (Fl>0.29) AND (Fl <1 .01) ) THEN 

F2 :- SQRT((1 43*L , POT(C2,0.57))/POT(C1 .1 .57)) 
ELSE 

IF ( (Fl>1.19) AND (Fl<8.01) )THEN 
F2 :- SQRT((1 37'L*POT(C2,0.863»/ 
POT(Cl, 1.863)) 
ELSE 
BEGIN 
WRITEI.N; 

WRITEI.NC"* RESULTADO NAO CONF1A 
VEL "♦•); 

WRITELN; 

WRITELNCTENTE NOVAMENTE'); 

DELAY(1600); 

CLRSCR; 



BOBINA; 
END; 
GOTOXY(l.lO); 

WRITECA BOBINA DEVERA TER ',F2:4:1.' 
ESPIRAS.'); 
END; 



{ aprcscniacao e menu principal } 

PROCEDURE MENU; 
BEGIN 

CLRSCR; 

GOTOXY(9,l); WRTTECa can am aro') ; 

GOTOXY(9,2); WRITECa o a a d') ; 

GOTOXY(9,3); WRTTECa a m axo a o') ; 

GOTOXY(9.4); WRITE('Q o a a a'); 

GOTOXY(9,5); WRITECaxD am amoarn') 

GOTOXY(8.7); WRITEC(C) 1988 by A. F. 
Shalders'); 

GOTOXY(l .10); WRITEf 

- '); 

GOTOXY(8.14); WRITECI11 - FREQUENCIA'); 
GOTOXY(8,15); WRnE('|2J - INDUTANCIA'); 
GOTOXY(8.16); WRrrE('[3) - CAPACn ANCIA'); 
GOTOXY(8.17); WRITE('[4] - FAKA DE 
FREQUENCIA'); 

GOTOXY(8.18); WRITEC|S] - FAIXA DE 
CAPACITANCIA'); 

GOTOXY(8,19); WRITE('|6| - CAlCULO DA 
BOBINA'); 

GOTOXY(8J4); WRITECOPCAO : '); 
READ(A); 

IF ( (A<1) OR (A>6) ) THEN MENU ; 
CLRSCR; 
CASE A OF 1 : FREQUENOA; 
2: INDUTANCIA; 
3:CAPAOTANCIA; 
4: F_FREQ; 
5: F_CAP; 
6: BOBINA; 
END; 
END; 



{ inicializacao do programa } 

PROCEDURE INIT; 
BEGIN 
MENU; 
Cl:-0; 
C2:=0; 
L:-0; 
Fl:-f>, 
F2:-0; 

GOTOXY(1.24); 

WRTTECDESEJA CONTINUAR (S/N) '); 
READ(KBD.C); 
C:-UPCASE(C); 
IF(C-'S')THENINiT; 
END; 



{ corpo do programa principal ) 

BEGIN 

INIT; 
CLRSCR; 

END. 
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dBEST 



DINO H. POLETTO 

D1RETOR DA PR1NCESSWARE 



N3o e prcciso pcnsar muito para se perceber que quase 
todas as profiss8es ou empresas requerem algum sistcma bcm or- 
ganizado para o armazcnamcnto c rccupcracao dc informacoes. 

Mesmo a microempresa pode se beneficiar de urn eficienle 
Sislema Gerenciador de Dados. 

O gcrcnciamcnto de dados 6, sem diivida, um dos mais 
litcis emprcgos que se pode dar ao microcompulador. 

O banco de dados 6, simplesmenle, um conjunto dc dados 
organizados de forma a serem usados com um dcterminado ob- 
jcli vo. Um cxcmplo comum de banco de dados 6 a lisla telefonica, 
que vem a ser um conjunto de informacoes organizadas dc modo 
a possibililar a facil localizacao de mimcros tclefonicos. 

Este banco de dados contdm nomes, enderojos e tclcfones 
dc indivi'duos, empresas ou instiluicoes. Os enderecos e lelefones 
tern pequeno valor por si mesmos, a menos que cslejam RELA- 
CIONADOS a um nome. 

Quando paramos para pensar a respeilo, f icamos realmente 
surpresos com o numero de banco de dados que nos sao familiarcs. 

Alguns dos mais comuns s3o: um dicionario, um livro de 
recciias, um catalogo de uma loja, um relatorio de estoques, de 
comas a rccebcr, clc. 

Empresas e outras organizacoes tern seus proprios sistemas 
de banco de dados: arquivos dc clicntcs, arquivos com 
informacoes pessoais, inventarios, registros de vendas, tabelas, 
etc. 

As cscolas tcm curriculos dos alunos, listas de chamadas, 
arquivos de funcionarios, relat6rios de frequencia, etc. 

Todos esses bancos dc dados possibilitam o bom fun- 
cionamento de uma empresa ou organizacSo. 

Lidar com grandes quantidades de dados 6 uma ncccssi- 
dade consiante em nossa socicdadc modema. 

Podcr acessar estes dados rapidamente, e deles extrair as 
informacSes desejadas, 6 baslantc importante. Contudo, o milo que 
se criou em torno da figura do computador pode levar Ieigos a 
pcnsar que rapidez 6 uma caractcrfsiica inerente ao proprio com- 
puiador. 

Isto cm parte 6 verdade. No cntanto, sc n3o dispusermos de 
um sistcma cficiente e bcm cstruturado, no senlido dc melhor 
manipular csta massa de dados, nossa rapidez ficara cornprome- 
tida. 

Eis ai um dos motivos pclos quais o dBase II surge como 
uma arma podcrosissima no tratamento de dados. 

Antes de entrar propriamente no dBase II, vejamos um 
pouco de sua histdria. 

A hisloria do dBase II leva-nos ate meados da d<5cada dc 60 
e a um sistema gerenciador de informacoes chamado RETRIEVE, 
que foi comercializado pela Tymshare Corporation. 

O Jet Propulsion Laboratory, em Pasadena, California, 
usou o RETRIEVE atdo final dadecada de 60, quando adquiriu os 
computadores UNIVAC 1 108. 
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Long, um novo programador no JPL, rcccbcu a 
incumbencia dc cscrevcr um programa que pudesse execular as 
mesmas funcoes que o RETRIEVE. O novo sistema gerenciador 
dc arquivos, que Long desen volvcu, foi chamado dc JPLDIS . Esse 
sistema continuou a evoluir nos varios anos scguinlcs c ainda e 
usado cm muitos dos computadores do tipo UNIVAC 1 100. 

No final da ddcada dc 70, Wayne Ratliff, que trabalhava no 
JPL, sob contrato, com Martin Marietta, comecou a se interessar 
por microcomputadorcs. Ratliff era um dos amigos de Jeb e 
comecou a dcscnvolvcr um sistema que, para o usuario, era muito 
scmelhantc ao JPLDIS. 

Conta a historia que Wayne desenvol veu a vcrsao inicial dc 
seu sistema de banco de dados com o objetivo de ganhar aposlas 
de fulcbol! Wayne comcrcializou cssa vcrsao JPLDIS sob o nome 
de VULCAN. 

Embora tenha sc dcscnvolvido rapidamente, ao ponto de 
adquirir seu proprio caratcr c personalidade, o VULCAN nao 
conscguiu muitas vendas. Em 1980 possufa somentc sesscnta 
clientes. 

Ent3o, um empresario, George Tate, entrou em cena, apos 
vcr um anuncio do VULCAN em uma publicacao para computa- 
dores. Logo lhe deu um novo nome - dBASE II - e uma nova 
companhia, a Ashton-Tate, que foi formada para comercializa-lo. 

Desdc o seu lancamento, divcrsas vcrsoes se sucederam, 
aprimorando o produto, implemcntado novas funcOes (2.3, A, B, 
C, D, 2.4, 2.4 le 2.42). 

No Brasil, chegou oficialmcntc atraves da Dataldgica, em 
1982, sendo utilizadoem computadores com proccssadores 8080, 
8085 e Z-80, sob o sistema opcracional CP/M. 

No final de 1985, foi lancada uma nova vcrsao, a 3.0, 
totalmcnte produzida no Brasil, o dBase II Plus. 

Com a chegada do dBase III e III Plus, para micros de 16 
bits, e o paulatino desuso dc algumas linhas de micros de 8 bits, o 
dBase II estava em vias de esquecimento... 

Mas, de repente, uma nova fase para os micros de 8 bits foi 
dctectada e a nova arrancada se sucedeu com a chegada do padrao 
MSX ao Brasil. 

Pcnsar no uso meramente dom6stico para um computador 
6 Utopia, principalmente no Brasil, onde os custos s2o elevados. 

Assim, o MSX foi se posicionando e, gracas as suas 
qualidades, encontrou um lugar no meio professional ou, ainda 
como alguns prcferem, profissional leve. 

Desia forma, surge, novamente, vitorioso, o dBASE II, 
agora pelas m3os da Princcssware e na sua mais nova vcrsao, 
dirigida a este padrao: dBASE II Plus MSX - v 1.0. 

Denomina-se 1.0, pois 6 a primeira vcrsao mundial do 
dBase II para MSX . Ela foi implementada a partir da vcrsao 3 .0 dos 
Apple's, PC's e TRS's, mas funcionando sob o sistema opcra- 
cional MSX-DOS e, ainda, pcrmitindo que se escreva em bom 
portugues, com todos os acentos. 



O QUE E DBASE II? 

Chamar o dB ASE II dc tuna linguagcm de programac3o e 
nada mais, d ter uma vis3o restrita, injusta, tanto para o dBASE 
como para scu novo usudrio. 

Na vcrdade, clc tambem c urn instrumento para gerenciar 
banco de dados. Consislindo de uma bem elaborada linguagem dc 
programacao inierprctada, dirigida cspeci'ficamcntc para trabalhar 
com banco dc dados com uma serie dc facilidades para se criar, 
manipular ou extrair informacoes concerncntes a esie banco de 
dados. Tudo isto cuidadosamentc arrumado em urn unico pacote 
perfcitamentc accssfvel, tanto para programadores como para os 
mcnos expericntes em computacao. 

Ha tres difercnics manciras de se encontrar e reiirar 
informacoes dc uma lista dc dados. A primeira dclas seria ir lendo 
os dados dc uma forma sequencial, ate" encontrarmos o que 
querfamos. 

Fica claro que, quanto maior for a lista de itens, mais 
demorada ficara esta busca, sendo, portanto, pouco pratica. Outro 
jeito seria ordenar estcs itens antes de iniciar a procura. A desvan- 
tagem esta no fato dc, toda a vez que acrescentarmos novos iiens, 
a ordenac3o tcra" de ser refcita. 

Muito mais eficiente c a ulilizacao dc arquivos indcxados. 
Neste caso, alcm do banco dc dados original, guardamos urn outro 
com indicadores (pointers) que apontam para os dados. 

Quando algum item e al terado, o arqui vo com os "pointers" 
e corrigido , dc modo que tcmos urn ordenacao efctiva sem, 
contudo, ter havido qualqucr movimento no banco dc dados 
original. 

A busca e obtenc3o de informacoes podcrd, entao, ser feita 
por diversas tecnicas, algumas aid bastantc complexas e que, 
felizmentc, n3o prccisam ser conhecidas pelo usuano do dBASE 
II, pois ja estao embulidas no pacote, podendo ser utilizadas 
atravds de comandos e instrucocs facilmentc assimiiavcis. 

Vale ainda rcssaltar que no dBASE II cstes fndices nao 
estao organizados de uma forma hierarquica, mas, como temos urn 
banco de dados do tipo relacional , havcra necessidade dc urn tinico 
indicadorparacada item, ja que todas as informacdes rclacionadas 
aquele item estao estreiiamcnte ligadas num so registro. Inclusive, 
d para o niimcro deste registro, que d unico para cada item no 
dBASE II, que apontam os indicadores do arquivo de indices. 

O usuario podc nao apenas gerenciar urn banco de dados 
com o dBASE II mas, se elc desejar, podc criar outros tambdm. 
Para islo basla recorrer ao comando CREATE e o computador 
inicia com o usuario urn dialogo a respeito dc como clc descja a 
estrutura dc armazenamcnlo e o tipo dos dados a scrcm guardados. 
Ha apenas ires tipos de dados, a saber: caractcr, numdrico 
c 16gico. Num tempo bastante curto voce vera que podc aprender 
a descrever os campos de um novo banco dc dados. 

Aprcndcndo a utilizar as expressoes adequadas, o novo 
usuario do dBASE II percebcra, facilmentc, que ele podc accssar 
informacSes bastante espcefficas, sem necessidade dc ter que 
descobrf-las cm meio a um amontoado de dados. 

Assim, sc, por cxemplo, um banco de dados contiver os 
resultados das vendas anuais dc um companhia, voce podera 
rcquerer o total dc vendas de um unico vendedor, num pcrfodo de 
tempo espeeffico, em uma dctcrminada regiao. Mais do que 
conseguirretirar estas informacoes rapidamentc com o dBASE II, 
voce percebcra que n3o ha a menor necessidade de conhecer 
programacao para obte-las, bastando para islo digitar uma ou duas 
linhas de comandos faceis de sc aprender. 

Como podemos perceber, o dBASE II vcm ao encontro das 
necessidades basicas de qualqucr indiistria ou organizacao, que d 
o servico ou produlo por ela gerado c as tarefas envolvidas na 
manipulacao dos novos dados que surgem ao longo do ciclo 
operacional. 

Uma vcz criada a estrutura do banco dc dados, novos 



registros podcrao ser acrescentados livremenic, fazendo uso das 
incriveis capacidades de cdic3o do dBASE II. 

Tirar relalorios rapidos com o dBASE II d uma tranquili- 
dade. Mais uma vcz tcmos o proprio computador dialogando 
conosco e pedindo todas as informacoes necesarias para a 
confeccSo do rclatorio. E pcrguntado sobrc o cabecalho, sobre os 
subtotals, os tftulos dos campos, etc. No caso do nosso primciro 
cxemplo, poden'amos tirar um rclatorio em que apareccsscm, 
explicitamcnte , os tolais de vendas por vendedor, por regiao, ou 
ainda pelosdois.conformc nosso intercssc. Para isto, basla teclar 
'REPORT' e o mais c se entender com a maquina. 

Copiar arquivos por intciro ou em parte c outra das facili- 
dades pcrmitidas pclo dBASE II. A maioria dos seus comandos 
permite uma filtragcm de dados, dc modo a opcrarem sobrc itens 
que satisfacam ccrtas caracteristicas. Ha, alcm disto, o "escope", 
cscopo ou comando, que cxplicita sobrc que registros deve ser 
lestada a condic3o de filtragcm. 

Vamos dar um exemplo mais especifico. Imagine a lista 
telefonica da cidadc de Sao Paulo sendo um banco de dados. E 
possivcl copiar para outro banco dc dados apenas os asinantes que 
se siluam na rua Augusta, cujas iniciais s3o "RO" e cujos telcfones 
termincm em "32". Atravds do cscopo, poden'amos procurar as 
condicOcs acima em toda a rua Augusta, ou apenas nos primciros 
registros, ou nos ultimos, como quiscrmos. 

Achoque jada para avaliar o incrivcl potencial de nossa lin- 
guagcm. 

At6 agora, falamos apenas, de caracteristicas do dBASE II 
complelamentc independentcs de qualqucr conhecimento prdvio 
de programac3o. Islo por si so ja justificaria scu uso, mas vamos 
destacar outra dc suas potencial idades que 6 a de criar procedimen- 
tos para screm utilizados por tcrcciros, atravds de programacao. 
Para isto, o dBASE II dispoc de um interpretador proprio 
capaz de entender as constructs fundamentals em programacao, 
como o comando interativo "do while", o condicional "if-clse" e 
oulros mais refinados como o "do-case", por cxemplo. 

Deste modo, o programador pode escrcver "menus", pro- 
cedimentos bastante explicativos para o usuario, ampliando o 
dialogo entrc o computador c o homem , insistindo na corrcc3o dos 
dados digitados, fazendo observances sobre a manutenc3o de ar- 
quivos, enfim, tudo que um programador imaginative podc "bo- 
lar" no scntido dc reduzir ainda mais a possibilidade dc erros na 
manipulacao de dados. 

Deste modo, d possivcl fazcrmos programas bastante inte- 
ligentes e eficicntes para rcsolvcr problcmas u'picos, como folha 
de pagamento, sistemadccontabilidade, controle financciro, con- 
trole de estoquc e outros, cxclusivamente cm dBASE II. Sc sua 
empresa leva ccrca dc um mes para rcsolvcr cstes problemas t3o 
simples, e porquc voce esta prccisando de um dBASE II para, 
atravds da cntrada dc dados em poucas horas, rodar, cm alguns 
minutos, os programas que lhc tirar3o esta dor dc cabeca. 

SOFTWARE ORIGINAL 

O usuario de um produto original, ao compra-lo, n3o leva 
apenas um manual c o disco com o scu respecti vo ntimero dc scric. 
Leva, tambem, um servico pcrmancntc c gratuito de suportc 
tccnii oede atuaIizac3o dc vcrs3o, ou scja, um servico profissional 
para profissionais. 

O usuario do dBASE II, tanto da vcrsao descrita ncste 
artigo, como de qualqucr outra, que n3o possua o scu niimcro de 
scric, deve saber que ela foi originada de um roubo e, como tal, c 
um crime, e quern a possui d um inlcrceplador. Os rcsponsavcis 
podcrao ser indiciados criminalmcnte e respondcr a proccsso 
judicial, por utilizac3o indevida do produto, de acordo com a Lei 
7646 dc 1 8/1 2/87 aprovada pclo Congrcsso Nacionald rcgulamcn- 
tada sob o niimcro 96036 cm 12/05/88. 
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CURSO DE PASCAL -II 



ANTONIO F. SUALDERS 



Ncsla scgunda li;3o, ircnios csludar as 
areas dc defimejio dc procedures c luncoes 
c a do programa principal. Scrao aprcsen- 
tadas as primeiras nococs sobre loops em 
Pascal. 

OS PROCEDIMENTOS 

S3o pcqucnas subrotinas que 
podem ser accssadas airavcs de scu nomc, 
usado como uma palavra nova no Pascal. 
Urn procedimcnloou procedure tcm como 
caracicrfslicas csiruturais a presenca dc urn 
nomc identificador , uma cvcnlual area de 
variaveis (variavcis locais) e a area dc 
definicao do procedimento em si. Esic lipo 
dc eslrutura e equivalcntc a um bloco do 
tipo GOSUB do BASIC. Abaixo, 6 mos- 
trado um pequeno exemplo: 

PROCEDURE ZERAR_MATRIZ ; 
VAR A : INTEGER ; 
BEGIN 
FOR A :=0 TO 100 DO 
S[A]:=0; 
END; 

A func3odesle procedure c fazer 
com que a malriz S , composia de 101 
clcmentos, seja zerada. Em Pascal 6 usual 
uma dcclara<;ao terminar com um ponlo e 
virgula. Toda vez que digiiarmos o nome 
do procedure dentro do programa principal, 
a subrotina a cle ligada sera cxccuiada. 
Note que a subrotina propriamenlc dita 6 
posta entre um BEGIN e um END; . Estes 
s3o os delimitadores de inicio c fim de 
bloco de operayoes cm Pascal. 

AS FUNCOES 

Podem ser definidas novas 
funcOes (matcmaticas ou nao) en: Pascal. 
Seu uso c muito parecido com o de proce- 
dures, por6m pode tcr apenas uma saida, ao 
passo que os procedures podem ter varias. 
Excmplos: 

FUNCTION TAN(X:REAL):REAL; 
BEGIN 
TAN:=SIN(X)/COS(X); 
END; 

Neste outro exemplo, definimos 
a func3o tangente, incxistente em Pascal. 
Feita esla definicao, podemes usa-la como 
qualqucr oulra funcao residente no Pascal. 



O REAL dentro dos parcntcscs c 
para que o argumento seja tratado como 
real, c o seguinlc para que o rcsultado 
obtido seja real. 

Os procedures e functions s3o 
uma das principals caracteri'sticas dc uma 
linguagem estruturada, pois se bem utili- 
zados, cviiam o uso dcsncccssario de 
GOTOs, o que 6 apclacao cm Pascal. 

LOOPS SIMPLES (FOR) 

O exemplo mais simples dc loop 
em Pascal c o do tipo FOR. E muito seme 
lhante ao FOR do BASIC, porem aceita 
somentc variavcis intciras no contador. 
Pode ser tanto crescentc quanto decres- 
ccnte. 

Uma caracterfslica do FOR e 
que n3o existeo NEXT, como em BASIC, 
sendo o controle fcito atraves de BEGINs c 
ENDs. Pode parcccr complicado, mas na 
verdade 6 muito simples: 
BASIC 

FOR X=0 TO 255 
PRINT CHRS(X); 
NEXTX 
PASCAL 

FORX:=0TO255DO 
WRITE(CHR(X)); 

No caso anterior, apenas uma 
ac3o 6 cxccuiada dentro do loop. 

Caso seja neccssaria a execugao 
de mais dc uma ac3o dentro do loop, estas 
deverao ser postas entre um BEGIN e um 
END; como no caso dos PROCEDURES: 
BASIC 

FORX=0TO100 
PRINT X 
PRINT X A 2 
PRINT 
NEXTX 
PASCAL 

FORX:=0TO 100 DO 
BEGIN 

WRITELN(X); 

WRITELN(SQR(X)); 
END; 

Note que a fun?ao SQR(X) 6 
equivalente a X A 2 do BASIC. A raiz qua- 
drada cm Pascal e definida por SQRT(X). 



N3o confunda ! Algo MUITO 
IMPORTANTE em Pascal e em rclacao 
aos loops alinhados. A sintaxc para tal 6 
mostrada no exemplo abaixo: 

BASIC 

FORX=()TO100 

PRINT X 

FOR Y=75 TO 22 STEP -I 

C=C+X-Y 

D=D+C A 2 

NEXTY 

PRINT Y-D/C 

PRINT 

NEXTX 

PRINT "FIM" 

PASCAL 

FORX:=0TO100DO 

BEGIN 
WRITELN(X); 

FOR Y:= 75 DOWNTO 22 DO 
BEGIN 

C:=C+X-Y; 

D:=D+SQR(C); 
END; 

WRITELN(Y-D/C); 
WRITELN; 
END; 
WRITELNCFIM'); 

Creio que, com cstc exemplo 
final, todas as eventuaisduvidas sobre cste 
tipo dc loop estejam sanadas. Convcm 
lembrar que o ponlo e virgula no final de 
algumas linhas indica o terminador deco- 
rnandos. Examine o programa que acom- 
panha esla scgunda Iic3o do curso. Ncle 
csia conlida toda esla licao, sendo sua 
analise um otimo exercicio. 

Os comandos de impressao no 
video s3o WRITE c WRITELN, 
equivalenles ao PRINT; e PRINT, respec- 
livamente. O GOTOX Y(a,b) 6 analogo ao 
LOCATE a,b do BASIC, e o CLRSCR ao 
CLS. 

Chegamos ao final da segunda 
licjo, e, em caso de alguma eventual 
diivida, n3o hesitem em cscrever-nos. Afi- 
nal, n6s estamos aqui para isso! 

Na proxima Ii?ao ser3o apresen- 
lados os loops dos lipos WHILE c RE- 
PEAT, muito poderosos por sinal. 
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program curso_2a ; 



{csic programa demontra o uso dc loops 
dcsenhando uma moldura na tela ees- 
cmvcndo unia mcnsagem cm scu cenlro. ] 



(area dc dcfinicio dc variavcis) 



{dciine A e B como inteiros) 
(define C como atfanumcrica) 



var a,b : integer ; 
c : char ; 



( area de dcfinicao 
de procedimenios} 



{ imprime 40 caraclcrcs 
235 sequencialmcnlc } 

procedure Iin ha chcia ; {idcnlificacao do procedure} 

begin (inicializa o procedure) 

for a := 1 to 40 do (define o loop) 

write(c); (imprime C dentrodo loop] 

end; {finaliza o procedure) 



(impnmeas margens) 

procedure margens ; 
begin 
fori := 1 io21 do 
begin 

writc(c); 



(idcnlificacao do procedure) 
[inicializa o procedure) 

{define o loop principal) 
[inicializa o loop principal) 
( imprime C) 



for b := 2 to 39 do ( loop secundario para ) 

writeC *); (imprimir 38 espacos} 
w riie(c); { imprime C fora do loop secundario } 

end; (finaliza o loop principal} 

end; {finaliza o procedure) 



{inicio do programa principal) 
begin { inicializa o bloco principal ] 

{define a variivel C comoo 



c:=chr<255); 
caractere 255 } 

clrscr; 

linha_chcia; 

margens; 

linha cheia; 

gotoxy(l4,10); 

wriicC'CURSO DE PASCAL'); 
cm 14,10] 

gotoxy(17,12); 

writeCUCAO II'); 

gotoxy(l.l); 

dclay(6000); (aguarda alguns segundos 

clrscr. 



{ limpa a tela ) 

(chama o procedure) 



(poeo cursor em 14,10} 

imprime a mensagem 



end. 



{ finaliza o bloco principal ) 



program equa?ao_do_segundo_grau ; 



(dcclaracao das variaveis} 



a,b,c, (cocficiemcs da ecjuacio) 

discr, (disenminante) 

raiz_l,raiz_2, (raizes) 

vcrucc x .Venice y : real ; (coordenadas do Venice da pa- 
rabola } 



{ irucializacao e enlrada de dados ] 

procedure inicio; 
begin 
clrscr; 

wrilcln('fi<]uacao do 2° grau'); 
wnteln('Curso de Pascal - II'); 
wrilelnORcvisia CPU'); 
writelnC *); 



gotoxy(l.lO); 

writeln('Enliccom os coeficicntcs da cquacioda forma 
Ax"+Bx+C=0'); 
writcln; 

write('A: ? '); readln(a); 
write('B: ? '); rcadln(b); 
writeCC; ? '); readln(c); 
end; 



(calculodo delu) 



function deUa(a,b,c:real):rcal; 
begin 

delu := sqr(b) - 4 • a • c ; 
end; 



{calculo das raizes reais edistinus) 

procedure raizes reais; 
begin 

raiz.l :- (-b-sqrt(discr))/(2*a) ; 

raiz_2 := (-b+sqn(discr)V(2*a) ; 

writcln('Raiz 1 = Vaiz_l:5:5) ; 

wriieln('Raiz 2 = ' jaiz 2:5:5) ; 
end; 



{calculo das raizes reais e iguais) 

procedure raizes _rcais_iguais; 
begin 

raiz_ 1 := (-b+sqn(discr))/(2*a) ; 

writeln('Raiz I = Raiz 2 = ' jaiz _ 1 :5 :5); 
end.z 



(calculo das raizes complexas) 
pToccdure raizes complexas; 



begin 
writelnCRaiz 1 = '.(-b/(2*a)):5:5.' \-sqn(- 
discr);5:5,' i'); 

wriicln('Raiz 2 = \(-b/(2*a)):5:.V +', sqrt(- 
discr):5:5.' i*); 
writcln 
end; 



(calculo das coordenadas do veniceda parabola) 

procedure vcrtice; 
begin 

vertices := -b/(2*a) ; 

vcrtice. y := -discr/(4*a) ; 

wriicln(' Venice da parabola:'); 

wrileln('('.vcrticc x:5:5,'.',vcruce y:5:5,')'); 
end; 



(programa principal} 

begin 

inicio; 

discr := ddta(a,b.c); 

if discr>0 then raizes _reais 

else 

if discr=0 then raizes reais iguais 
else 
if discr<0 then raizes complexas ; 
writcln; 

writcln('A = \discr); 
writcln; 
vcrtice; 
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ASTROLOGIA NO MSX 

LUIS TARCISIO DE CARVALHO JR 

EDITORA ALEPH - 1988 

Como nao podia deixar dc aconicccr, o MSX 
entrou na area mi'siica! De fato, uma das grandes dificuldadcs dos 
astrdlogos semprc foi um cxaustivo trabalho de calculos e consul- 
las a labelas de efemeides planelarias para levaniamenio do Mapa 
Aslral. 

Com a incrivcl capacidadc c precisao de 
calulos do MSX, csla larefa pode ser relegada ao micro, ficando ao 
aslrologo a tarefa mais nobre da interpretacao. Nesie lancamcnto 
da Editora Aleph, o leitor passa a dispor de uma especie de "kit" 
de Astrologia, dividido da scguinte forma: 

Na parte I <S fomecida uma lislagem em 
Basic do programa M APASTR AL, que se encarrega de fazcr todos 
os caMcuIos astronomicos necessarios a interpretacao. Para os 
leitores "preguicosos", a Aleph comcrcializa uma vcrsao do livro 
associada a um disquete dc 5 1/4", com todos os programas nele 
contidos. 

Ao rodar o programa s3o solicitadas as 
informacoc pessoais do "consulente": nome, data e hora do nasci- 
mento. O programa pcrgunta se nesta data estava em vigor o 
horario de ver3o, sendo que no apendice II do livro esta uma tabcla 
de todos os horarios de vcrao que ja vigoraram no Brasil, com 
espaco para complementacoes futuras. 

A seguir devem ser colocadas as coordena- 
das geograTicas do local do nascimento. No apendice I sao for- 
nccidas as das principals cidades brasileiras. Se a sua cidade nao 
estivcr rclacionada, uma boa fonte de consulta e o indice do Atlas 
da Encylopaedia Britannica. 

Apds a entrada dcstes dados (figura I), o 
micro efetua todos os calculos e desenha o Mapa Astral na tela. No 
apndice III 6 fomecido um programa que permite tirar uma cdpia 
desta tela (c das seguintes) na impressora, para documcntacao 
posterior. %%%, MAPA ASTRAL *** 

FIGURA 1 Nome <max=10 letras):? 



Apertando-se a tecla Fl , o programa lista a 
posicao do Sol, Lua c Planctas c, com F2, a posicao das casas 
(figura 2). 

FIGURA 2 



NAPA ASTRAL 



F1 



Sol 
16 X 
CAS A 
VIII 




Na tela seguinte e fomecida a tabela dos 
aspcctos planetanos (figura 3) e, nas duas telas seguintes (figura 4 
c 5), as posicdcs dos planctas e casas 6 lisiada com toda precisao. 

FIGURA 3 



iJ-ata de nascimento: 
Ca^os 15,16/1 582 > I>ia ? 6 

Mes ? 3 
Ano ? 1967 




Hora de nascimento: Hora ? 15 

Minutes ? 36 
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N ou S ? s 
Sraus ? 46 
Minutes ? 38 
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FIGURA 4 



*** MAPA ASTPAL #** 



P0SIC6ES DOS PLANETAS 
PLANETAS LONGITUDE SIGNO 



Sol 

Lua 

Mercdr io 

Venus 

Marts 

Jupiter 

Saturno 

Urano 

Netuno 

Plutao 



15:30:23 
26 22: IS 
10:31:13 
13:21:17 
3:10:45 
24:46: 3 
21 : 21 
41 : 2 
:20: 1 
26 : 43 



0: 

24: 
19: 



Pe i xes 

Capr ieornio 

Peixes 

Aries 

Escort-' i -3c 

Cancer 

Ar i ©s 

Virgem 

Escorpia'o 

Virgem 



CASA 

w n 

VII 

VIII 

IX 

III 
I 

VIII 

II 

IV 

II 



FIGURA 5 



*** MAPA ASTPAL *** 



P0SIC6ES DAS CASAS 



CASA COSPIDE 



LONGITUDE SIGNO 



I 


Ascendents 


22 : 57 : 41 


II 




29 : 3 : 5 


III 




^ ■ '" tC: - - '"if 


IV 


i.e. 


7: 0:36 


l„l 




3:30: 9 


VI 




27:37:32 


VII 


Descendente 


22:57:41 


VI 1 1 




29: 3: 5 


IX 




5:25:36 


X 


Meio do Ceu 


7 : : 36 


XI 




3-30: 9 


XII 




27:37:32 



Cancer 

Leao 

L i bra 

Escorpia'o 

Sagitario 

Sagitario 

Capr ieornio 

Aguar i o 

Ar i es 

Touro 

Gemeos 

Gemeos 



A scguir vcm a parte mais interessante do 
li vro. Em func3o do signo dc cada planeta, do ascendente, das casas 
dos plancias c dos aspectos planciarios, o programa lisla uma sdrie 
de numcros.corrcspondendo cada um a um verbete fornecido na 
parte III do li vro (interprctac3o). Desta maneira, mesmo o leigo em 
astrologia pode fazer uma primeira interpretac3o do mapa. Obvia- 
mcnic, cla sera superficial, pois e nccessdrio um astrdlogo experi- 
ente para solucibnar eventuais informacocs conflitanlcs cntre os 
aspectos (figura 6). 

Trata-se, sem duvida, de uma obra original e 
inovadora que, alem de mostrar uma faceta insuspeilada do MSX, 
pcrmite ampliar seu campo dc uso, cspecialmcnte cntre o publico 
f'eminino que olha o micro com uma certa indiferenca, ou at6 
hosulidadc. 
FIGURA 6 *** MAPA ASTPAL «** 

12- Signo Solar: Peixes 
16- Ascendente em Cancer 
Combinacao: 12 - 16 

SIGNO DE CADA PLANETA: 

34- Lua em Capri eornio 

43- Mercd.r io em Peixes 

49- Venus em Aries 

68- Marte em Escorpiao 

76- Jupiter em Cancer 

85- Saturno em Aries 

102- Urano em Virgem 

116- Netuno em Escorpiao 

126- Plutao em Virgem 



CASA I£ CADA PlANETA: 

140- Sol na casa VIII 
151- Lua na casa VII 
164- Mercd.r io na casa VIII 
177- Venus na casa IX 
183- Marte na casa III 
193- Jupiter na casa I 
212- Saturno na casa VIII 
218- Urano na casa II 
232- Netuno na casa IV 
242- Plutao na casa II 
ASPECTOS PLANETARIOS: 

256 - So 1 .••Mercd.r i o : Con j uncao 

27y- Sol /Plutao: Qposioao 

294- Lua-'Marte : Quadratura 

297- Lua/ Jupiter : Oposicao 

299- Lua,- Saturno: Sextil 

302 - Lua/Urano : Tr i gono 

305- Lua/Netuno: Sextil 

308- Lua/Pluta'o: Trigone 

312- Lua/Ascendente : Oposicao 

341- Mercurio/Meio do Ceu: Sextil 

387- Marte/Meio do Ceu: Oposicao 

389 - Jd.p i ter /Saturno : Tr i -gone 

392 - Jup i ter /Urano : Sext i 1 

395- Jup iter /Netuno: Trigone 

398- Jup iter /Plutao: Sextil 

400- Jd.p iter. -•Ascendente : Con.juneao 

410- Saturno/Netuno : Trigone 

422- Urano, Netuno: Sextil 

424- Urano/Plutac-: Con,i uncao 

428- Urano,- Ascendente : Sextil 

434 - Netuno,- P 1 uta'o : Sext i 1 

437- Netuno/Ascendente : Trigone 

443 - P 1 uta'o/Ascendente : Sext i 1 



Guia do Programador - Volume 1 
Guia Tecnico de Referenda - Volume 2 
Editora McGraw-Hill 

A McGraw-Hill acaba de fazer um 
lancamento de dois li vros que, ao nosso ver, em muito ir5o ajudar 
os programadorcs, iniciantcs ou n3o, a usufruir ao maximo dos re- 
cursos dos computadores MSX. 

A obra foi dividida em dois volumes, tendo 
a primeira recebido o titulo dc "Programac3o Basico e A vancada", 
com 297 paginas e a segunda, com 346 paginas, rcccbcu o titulo de 
"Guia Tecnico de Referenda". 

Tendo sido traduzida do livro The Complete 
MSX - Programmers Guide, que vcm a scr uma das publicacOes 
mais conceituadas na Europa sobrc o MSX, tendo sido traduzida, 
num trabalho muito bem fcito, ulilizando uma linguagem basiante 
acessivel a todos os lei tores. 

Um dos fatores que lornam os livros de facil 
utilizacao por parte dos leitorcs 6 a forma pela qual os comandos 
s3o apresentados, tendo sido agrupados por func3o. Assim, no 
capilulo 12,porcxemplo,dedicadoalcituradedadosem matrizes, 
cnconiramos as instrucoes DIM, READ, DATA e RESTORE e 
uma sdrie de programas onde 6 exemplificado os scus usos. 

Seguindo essa linha, temos 61 capitulos, que 
abragem desde a organizac3o do leclado (uso de RGRA, LGRA, 
ETC), ai<5 ao Sistema opcracional e BIOS. 

O indice Analilico 6 outro ponto forte do 
livro e que permite uma consulia rapida e prccisa. 

Se quisermos, por excmplo, informacocs 
sobrc o comando RUN, ao consultar o Indice Analilico, vcri- 
ficamos que elc foi mencionado nas paginas 15, 32 e 509. 
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Como ja deve ser do conheci- 
mento de V.Sas., a imagem gerada pelos 
computadorcs da linha MSX, particu- 
larmente no Hotbil, nao c de boa qualidade. 
A fim dc mclhorar a qualidade da imagem 
obtida no meu Hotbit, solicito-lhes a 
scguinte informacao: 

Como obier uma safda RGB 
ncste micro e como substituir o circuito 
modulador de RF por um dc melhor quali- 
dade? Sc possivel, gosiaria de receber o 
desenho do esquema desta modificacao. 

Adquiri um monitor da marca 
Spectrum, do tipo usado em Apple e, 
quando o ligei nasafda de video, nao oblive 
nenhuma imagem. Depois de analisar e 
medir com oscilosc6pio o nivel de sinal de 
video, verifiquei que o mesmo era muito 
baixo. 

Resolvi este problema mon- 
tando um amplificador de video, con- 
seguindo, entao uma imagem muito boa. 
Porem, quando rodo certos programas, que 
usam diversas cores, a imagem fica distor- 
cida, como se perdesse o sincronismo. 
Ainda estou pesquisando como resolver 
este problema 

Ccrto dc que poderei contar com 
as informacoes solicitadas no menor prazo 
possivel, subscrevo-mo. 

Pedro America Sampaio Guimarfies 
Caixa Postal 984 11 
28500 - Canlagalo - RJ 



No Hotbit existc uma pequena 
chave localizada perto da placa de 
identifica^ao que serve para solicionar o 
tipo de monitor que se esta utilizando. 

Acreditamos que, ao efetuar a 
mudanca da posi?ao desta chave, voce terd 
uma mclhora scnsfvel na qualidade de 
imagem do seu monitor. 

Para podermos fornecer-lhe 
todos os dados necessanos a solucao do seu 
problema, encaminhamos a sua 
correspondencia a Sharp, que, em tempo 
habil, ira responder-lhe. 



Encontrci em uma banca 
de jomal de minha cidade um exemplar da 
revista "CPU", cditada pelos senhores e, 
como gostei muito da maneira como os 
assuntos foram tratados e percebendo ainda 
a possibilidadc demc tornar assinante, sol- 
icito, se possivel, que me enviem maiores 
esclarecimentos sobre o preco atual da 
assinatura e forma de pagamento. 

A revista que encontrei 6 a de 
numero 3 e gostaria que, junto com os es- 
clarecimentos solicilados, fossem for- 
necidas inslrucOes de como eu faria para 
adquirir tambem as de numero 1 c 2, ou 
demais atrasadas, a fim dc que eu n3o 
ficasse com maierias truncadas. 

Possuo um micro Expert 1 . 1 , ja 
convertido pelo Ademir cm 2.0, drive com 
interface DDX e impressora Lady-80, 
equipamento este que forncci ao meu filho 
Cesar de 12 anos para iniciacao na area de 
informauca, sendo que as materias que 
abordam na revista de muito ajudam. 

Otdvio A Ives Pereira 

Rua Dr. Roque Barbosa Lima 108 

Parque Sao Lucas 

03264 -Sao Paulo - SP 



As informacoes necessarias 
para efetuar a assinatura da revista podem 
ser encontradas no cupom prdprio com esta 
finalidade, sendo o preco valido ate" a saida 
do novo numero. 

Com relacSo aos numero 1 e 2 da 
revista, informamos que o numero 2 esta 
esgotado, devendo ser relancado no inicio 
do pr6ximo ano. O numero 1 foi relancado 
por n6s este mes e cm Sao Paulo podera ser 
encontrado na Litec, ou solicitado direta- 
mente a n6s, ao cuslo de CzS 660,00. 



Os usuarios de computadores pessoais 
s2o, por forca do destino, uns pesquisa- 
dores e estao semprc a proc ura de fon tcs de 
informacao. E com este espirito que 
sempre estou em bancas de jornais, ou 
livrarias, c, numa dessas investidas, en- 
contrei a revista CPU que, ate agora, esta 
de parabens pelo excelenle nivel dos arti- 
gospublicadose programas apresentados. 

A iddia de apresentarem pro- 
gramas escritos em outras linguagens me 
agradou bastante pois 6 dificil encontrar- 
mos este tipo de servico cm outras revistas 
da area. 

Espero que continuem sempre 
assim, dando uma for^a aos programa- 
dores. 

Antonio Pedro Rodrigues Silva 
Caixa Postal 38080 
22452 - Rio dc Janeiro - RJ 



Sou programador e encontro dificuldadcs 
em entrar em contato com outros pro- 
gramadores para troca de id6ias e pro- 
gramas cm qualquer linguagem. 

Gostaria de corresponder-me 
com programadores de qualquer lin- 
guagem, a fim de juntos possamos iniciar 
um clube de programadores e que, assim, 
possamos nos auxiliar em problemas do 
"dia a dia". 

Sandro Daniel Minetto de Carvalho 
Caixa Postal 4117290 - Macatuba - SP 



Quero parabeniza-los pela ex- 
ecelente qualidade da revista. 

A meu ver, deveriam aumentar a 
parte rclauva aos jogos, incrementando a 
secao de dicas de mil vidas e High Scores. 

Achei muito bom e oportuno o 
artigo do MSX 2 por transformacao. Espero 
que logo seja lancado tambdm no Brasil. 
Tambem, com a situagao economica atual 
do pais, n3o me admiro que os fabricates 
ligados a area do MSX n3o estejam pen- 
sando em n3o fazer lancamentos no mom- 
en to. 

Se possivel, gostaria de ver pub- 
licados na revista varios mapas de jogos que 
nos auxiliem a achar a safda. 



Ana Maria Santiago 
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• A FORQA DO MSX* \*. 




EXPANSOR PARA 4 SLOTS 

Adote um expansor e multiplique 
a capacidade do sen micro 
com ele voce pode conectar: 
INTERFACE - DRIVE - PLACA 
DE 80 COLUNAS - EXPANSOES 
DE MEMORIA - MODEMS - 
SOFTWARE - RESIDENTES 
E ATE JOGOS 
Apenas 22 OTN'S 



MODEM COMPLETO 

Permits acesso ao REN PAC - 
CIRANDAO - VIDEO TEXTO 
E ARUANDA 

Alem de comunicacao micro 

a micro 

So 30 OTN'S 

DRIVE DDX- 5 1/4 
FACE DUPLA 

360 K FORMATADOS 
O unico com garantia mesmo. 
Acompanha - INTERFACE - 
MANUAL E DISCO MESTRE 
Apenas 60 OTN'S 

PLACA PARA 80 COLUNAS 

Com ela vocfi sentira que e 
bem mais facil programar. 
Explore ao maximo seu MSX. 
Apenas 22 OTN'S 



PAPAI NOEL EXISTE MESMO 

6 jogos por apenas Cz$ 4.000 (Disco ou Fita incluido) 



ROMA - A CONOUISTA DO IMPERIO -SKATE 0RAGON CATCH 
THAT OlFIL -KIMPO FIGHTER -MINDER -GRADIUS -DOBSHOW 
•STRIPGIRL II -0IZZY DICE -TAI PAN -O CONDE 0€ MONTE 
CRI8T0 -DOM OUIXOTE 1 -DOM OUIXOTE 2 -QROTTEN VON 
OBERON -BOGYS1 -MOU8ER -CAPTAIN SEVILHA I -CAPTAIN 
8EVILHA 2 -BLACK BEARO -MAD WX -CRAZY CARS -HUNDRA 
•ARKANOID REVENGE -PINBALL UAKER -ARKOS 1 -ARKOS 2 
■SUPOER STAR SOCCER -VENON SF0CKES BACK -REX HARD 
•STREAKER -INDIANA JONES -CAR JAMBOREE -3A8A -OCEAN 
CONOUEROR -ANAROUTE -SOUASH 2 -EL MUNDO PEROIDO 
•MANES -JA8T -EAGLE -BANANA JONES -ALBATROSS PHOENIX 
GOLF -AFTEROI08 -TURBO GIRL -ALE HOP -MATCH DAY 2 -NEW 
21 -GAME OVER 1 -GAME OVER 2 -CAR FIGHTER -LEGEND OF 
KAGE -ZONE OUT •TONIGHT AT THE PUB -DINO SOURCER8 
•GENIUS -MOVIE PAC MAN -GLASS -DROIDS WHfTE WTCH 
■CPJBAOGE -SIMON -TRIANGULANDO -30 80UASH -NUCLEAR 
BOWLS -SWMG MAN -JUNGLE JIM -MOBILE SUIT GUN DAM 
•BOUNCE -TEMPTACION -TIME BOMB -HARD BOILED -MIS8ION 
RESGATE -HE MAN -ROMAN NO BOUKEN -POLICE ACADEMY 2 
•EL CID -STAR DUST -PAPAI NOEL -COMSLOT •BOLDER DASH 2 
•ULTRAMAN -TRIAL SKY -RAPIER MAN 2 -PANEL PANIC -CETUS 
-ANGLE BALL •CASTILO DE DRACULA 'TEDOKU 'FREDDY 
HARDEST I -FREDDY HARDEST 2 -ZAIDER OF PEGU8 -SMALL 
JONES -UFO AZ -TT RACE -PEGASUS -KNUHT LEON -HYPE 
•BATTLE CHOPPER -WONDER BOY -SPACE CAMf -KENDO 
-INOY 500 -ICE HOCKEY -GULKAVE -ALPINE SKY -JACK THE 
NIPPER 2-GOOOY-8TARBLAZZER -SKY GALDO -NIGHT FLIGHT 
■8CARLET7-SUPERSNACK-YAYAMARU-BPLASH-THE POLICE 
STORE -ACUSO -RAMBO 2 -MEMPORY GAME -LAPTICK 2 
•JETALF STRJCKES BACK -EXTERMIHATOR -APEMAN STRICK 
AGAIN -CHOPPER -MOONSWEEPER -BOMULU8 THE L08T 
CROWN -BOUNCING BLOCK -BALLBLAZER -MILK RACE -AUEN 
O RESGATE -OUINELA HIPICA-TARO -PENTAGRAM -MIKI -LODE 



RUNNER I -ICE WORLD -ICE KING -FIRST -INCA I -LA ABEJA 
SABIA -WORDS GAME -TRIOMAN -STARBYTE -SEA KING 
-CABBAGE PATCH KIDS -NKDK NEAKER -KNKJHT GHOST -JUMP 
COASTER •EXCHANGER -COMET TAIL -AOUAPOU8 SOS 
■OTHELO 2 -SKYGAWK -O'MAC FARMER -DOMINOES -MOLE 
MOLE 2 -HOPPER -GODZILA -BMX REKENCROSS -ANT ARES 
•SPY STORE -SAFARI X -PACHINCO -STRANGE LOOP -COSMIC 
ABSORBER -ROTORS -FINAL JUSTICE -MERLIN -SAILORES 
DELIGHT -RASTER SCAN -TANK BATAUON -MARTIANOID8 
■NONAMED -ACE OF ACES -CAN OF WORMZ •CUB - HERT 
•WRANGLER-WOID RUNNER -EL MBTERIO DEL NILO -TRAFFIC 
■SLOT MACHINE 2 -STAR SEEKER -MONSTERS FAIR -JUMP 
LAND -HIGH WAY ENCOUNTER -LEONARD -BOING BOING 
•INFERNAL MINER 'HOWARD THE DUCK -COASTER RACE 
-BUBBLER 'MIDNIGHT BROTHERS -PHANTIS 1 'PHANTB 2 'EL 



PEDID0S PARA 0UTR0S ESTAD0S 



ATRAVES D6 CHEQUE NOMINAL A NEWS0FI 

INFORMATICA LTDA. - RUA SENADOR 

0ANTAS, 117 SALA 736 - RIO DE JANEIRO - 

RJ CEP 20000 0U VALE POSTAL AGENCIA 

"ARC0S" COD. 522317 



SeiO dLd 'or o seu pecco acresca o quoni o ce 

OS 1 OOC.OO Vaior co'resDonde'Me d'sco 

c i 'c de e>ce>enie ojoiidade 

coi"ooriarr em mec c 6 D'OC'arrosI 



PEDIDO MINIMO: 2.000,00 
PEC A SUPER LiSTAO - GRATIS 



maoo voador i -el maoo voadofl 2 -amioa -ewoks and 
oandellion -fred and bubuxos -rocky o lutaoor 
■chick fighter -invasion usa -donkey kong nftenoo 
•aroumedes -sparkie -rise out -popcum -oki duo -pink 
chase -jet bet will* i -acr06ata -heutank -autoroute 
•golfe 9 -cosra -defuse -demand zaxxon -vestron 
■alcazar -fighting pjder -colt 38 -one one i -mobile 
planet -las tres luces de olaurwg -break out -the 
wall -outroyo -pay load -xetra -mian jacks 2 -space 
maze atacx -hang on -real time role -diamond mme 2 
•8kooter -death wish j -tzr grand prix rider -rally x 
•lorciels runner -exoioez-zlxxas2-ou8tln'atack of 
tomatoes -the protector -astro plumber -fly boat 
-war chess -im7 -tensai rasbian -zanac 2 ■mahjono 
•picot -pairs -boxe konami -coast pihsall -vioeo drome 
-alpharoid -icicle works -break m -collor ball 
■inpecteur z -head over heels -krakout -mr do 
wildride -king ballon -ord trap -the living daylight 
-killer 8tati0n -european games -nuts a milk 
■leucocyte -mini golf -fuzz ball-horror em amyttville 
-colony -coba nostra -shooter -msx baseball -10 tn 
frame -bmx simulator -wist bang bang -last mission 
'pyromaniac -beach head •obent kdnami soeht1pede 
■smash out -oefenoer castle -exploding atoms 
■g en oghams -panic junction -robofrog-anty -bcience 
fiction -jony -space shuttle -police academy i -shwar 
■johny comomolo -thing bounces back -command 2 
•the meankg of ufe -top roller • survivor -indiana no 
bouken -the sprinter -boom -sat alma naval 2 -peetan 
■terminus -jakle 1 wilde -venganza <soul of a robot • 
poker real -nabum -wbrrer games 2 -moon rider -lmno 
stones -ice ■cruzaoer -special operations -kick it 
•winter games i -star wars 
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THE TRAIN GAME 
SPRINTER 



Descubra os macetes deste trem 



EQUIPE SUVA SOFT 
RODRIGO 
Z6 MARIO 
ROBERTO PINI1A0 



Este jogo mostra a cabine de comando do trem, bem como 
a visia frontal para a via ferrea. Depende de voce viajar o m£ximo 
de milhas com este trem. 

O registrador dc milhas n3o funcionard caso voce escolha 
uma velocidade menor que a permitida. 

Voce podc come^ar o jogo com a velocidade de 120 mph. 

Sprinter tern certas particularidades que o distinguem de 
todos os outros trens, sendo as mais importantes as seguintes: 

1- Acionamento e parada com uma unica alavanca; 

2- Conlrole automalico de velocidade por meio de botOes; 

3- Operacao de abertura e fechamento das portas pelo maquinista. 

Alavanca de acionamento e parada 

Voce pode mover esta alavanca com as teclas do cursor 
(para a frente e para tras), em quatro posicOes: 

1 - Alavanca toda para a frente: se foi previamente 
escolhida a velocidade, o trem comeca a mover-se. Os freios estao 
li vres e o indicador de freio est£ na oposicao "off. O amperfmetro 
mostra uma corrente clcvada passando pelos motores. Se a 
alavanca esta nesta posicao e o trem esta em movimento, voce pode 
escolher outra velocidade. 

2 - Posicao neutra: os freios estao livres e os motores 
parados. Quando o trem esti em movimento a velocidade cai 
lentamente. Nesta posicao voce pode escolher uma velocidade. 

3 - Freios: os motores estao parados. O ar aciona o cilindro 
do freio e o man6metro indicard alta pressao. 

4 - Alavanca toda para tras: como na posicao 3, mas a 
pressao nos freios 6 maior. 

Seletores de velocidade 

Prdximo do centro do painel de controle, voce verS oito 
botOes para controle da velocidade. Estao disponiveis as seguintes 
velocidades: 

4-40 mph 

6 - 60 mph 

7 -70 mph 

8 - 80 mph 

9 - 90 mph 
- 100 mph 
1- 110 mph 
2 -120 mph 

Para selecionar a velocidade, a alavanca de acionamento e 
parada n3o devem estar na posi(3o de parada. 

42 CPU 



Operacao central das portas 

Acima dos oito botOes de selecao de velocidade, voce en- 
contrara dois botoes para operacao das portas. 

Antes de partir, voce deverd fechar as portas, pressionando 
a tccla 'D'. Soara uma campainha para indicar que voce pode 
partir .Quando as portas estao fechadas, acende-se uma luz verdc 
no painel de controle. 

Para abrir as portas, pressione a tccla 'O'. 
Painel indicador 
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I - Controles dc luz - aquecimento 

2- VolU'metro (1800 V) 

3- Amperimetro (300 - 500 A) 

4 - Velocfmetro 

5 - Pressao no reservatorio dc ar 

6 - Pressao nos cilindros de freio 

7 - Chaves de inclinacjio 

8 - Chaves de alta voltagem 

9 - Luzes indicadoras (portas) 

10 - BotOes do CAT (Controle Automdtico do Trem) 

I I - Luzes indicadoras dos freios 

Painel de controle 




1 - Chaves de barra 

2 - BotOes seletores de velocidade 

3 - Alavanca de acionamento e parada 

4 - Pino de parafuso 

5 - Chave de ignicjlo 

6 - Portas - limpadores de piira-brisa 



Controle Automatico do Trem 

O equipamento de controle do trem 6 interligado aos sinais 
localizados ao lado da via ferrea, os quais enviam um codigo ao 
trem, que, traduzido, informa o limite de velocidade para aquela 
parte do trajeto. 

Esta informacao 6 transmitida por sinais sonoros e lumino- 
sos. 



verde - maximo 120 mph 
verde + 8 - maximo 80 mph 
verde + 6 - maximo 60 mph 
amarelo + 8 - rcduzir para 80 mph 
amarelo + 6 - reduzir para 60 mph 
amarelo - reduzir para 40 mph 



Quando voce passa um sinal que permite outra velocidade, 
soa uma campainha dentro da cabine. Se a sua velocidade 6 muito 
alta, soa outra campainha e voce devera acionar os freios imedia- 
tamente, caso contrario, o CAT parara o trem. 

Quando a velocidade for reduzida suficientemente, a 



campainha tocara de novo. Isto significa que voce podc parar dc 
frear, escolhendo novamente uma velocidade. 

O CAT n3o reagira a sinais vermelhos, prevenindo, apcnas, 
a proximidade de um deles, por meio de um sinal amarelo - 4. 

Seguranca Extra 

Quando a alavanca de acionamento esta na posicao ncutra 
eo trem atinge uma velocidade abaixo de 40 mph, soa uma cigarra. 
Se o maquinista nao pressionar o boiao de safda (tecla 'Q'), o trem 
parara. 

As estacoes 

O Sprinter 6 um trem paradouro e, assim sendo, deve parar 
em todas as estacoes. 

Voce deve parar o trem o mais prdximo possfvel do fim da 
plataforma, perto do sinal de parada. 

Joystick 

Frente/Tras - Alarme de acionamento/parada 
Esquerda/Direita - Escolha de velocidade 




Aqui voc§ encontra: 

Educativos 

— Abelha Sabia 

— Mago Voador 

— Trigonometria 

— Corpo Humano 



SILVASOFT 

MSX PETROPOLIS MSX 



Aplicativos 

— Controle de Estoque 

— Controle Banc^rio 

—MSX Tools 

— Editores de Grafico/Som/Voz 




E os melhores jogos: 

Madmix— Black Beard— World Games— Taipan— Labadia del Creimen— Turbo Girl- 
Match Day II— Super Star Soccer— Alehop — Indiana Jones 

Para adquirir estes programas basta escrever uma carta com nome 
e endereco legiveis pedindo os programas desejados e um cheque 
nominal e cruzado a Silvasoft Ltda. ou vale postal. Pega nosso listSo 
gratis, ou venha ao nosso Show Room: 

Rua do Imperador 518/302 CP 91.321 CEP 25600. 

Pe?a nosso Jornal 
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O MUNDO PERDIDO 
DA III DIMENSAO 



GUILHERME A. L. DA SILVA 



Numa sombria e assusladora noilc de scxta-feira, 13 
de agosto de 2004 — ano bissexto, para o seu azar — houve urn 
acidente geodimcnsional, devido ao fortalecimenio das forcas 
malignas que se intensificam neste dia maldito e voce foi "arran- 
cado" da paz do seu lar para ser jogado num mundo dc mortee cru- 
eldade. 

Mas ainda ha uma chance. Reprogramar o linico tele- 
portador dimensional cxistente no universo que se encontra, por 
coincidencia, em algum lugar nessa dimcnsSo indspita. Rcpro- 
grame-o, pois esta e aun ica chance para que voce possa relornar ao 
nosso querido planeta. 

DICAS 

O jogo oferece as seguintcs fun^Scs dc ajuda: 

Verbo ajudar: fornccc todos os vcrbos existentes no jogo e, 

dependcndo da siluacSo, da dicas de como proceder. N3o ha dicas 

falsas. 

Arquivos: escrevendo esta palavra, o compulador mostra na tela 

um menu contendo opcoes para a gravacao c lcilura de arquivos. 



O mundo pcrdido da III dimensSo 6 habiiado por: 

MUTANTES DO APOCALIPSE: 

Eles aparecem para saquear ou, at6, sanguinariamcnte, malar. 
S3o perigosfssimos. 

FANATICOS RELIGIOSOS: 

Oferecem perigos maiores que os mutantes.Todo cui- 
dado com eles e* pouco. 

O jogo apresenia um nivel de dificuldade razoavel, que 
podera ser alterado. Para que o jogo fique ainda mais diffcil, delete 
do programa as linhas de 331 a 337. 

Caso queira dificultar um pouco mais, mude o limite de 
objeios a serem carregados por vez pelo aventureiro. Para isso, 
apague os comandos REM das linhas 843, 844 e 845. 

O limite deobjetosddado pe la variavel NJ da linha 845 
e o niimero de objctos 6 fomecido pela variavel DO. 




MSX PROFISSIONAL E NO MISC 

OMISC lanca o PACOTAO GLOBAL PROFISSIONAL que consistc de: selecao e venda de equipamentos 
adequados. softs especifieamente desenvolvido para cada profissao. com as adaptacoes necessarias para 
cada caso particular, tretnamento e assistencia tecnica. Estes sao os Softs ja dlsponiveiS: ADVOCACIA 
CONTABILIDADE. ENGENHAR1A CIVIL Conheca as ativtdades do MISC: L' TRANSFORMACAO PARA VER 
SAO 2.0: agora voce pode transformar seu Hot-Bit ou Expert na segunda geracao de MSX, rigorosamente dos 
padroes intemacionais do MSX 2.0. 2 a CARTtJCIiO DE 256 Kb. PARA JOGOS MEGAROM: com ele c usando . 
seu drive voce tem acesso aos mais avancados jogos existentes, com mais acao. maior resolugao e melhor musica. 3:' SOFT 
HOUSE: diariamente o MISC esta ampliando seus titulos. Extensa colecao de jogos c aplicativos para 2.0 jogos megarom. 
4? SERVICOS: orientacao na utilizacao e selecao de equipamentos e softs. 5? COMPRA E VENDA de Expert e Hot Bit. 
6f PRODUTOS: drives, impressoras. modems, interface para lYaxis 20. capas para micros, drives e impressoras. Hvtos espe 
cializados etc. 

ASSOCIE-SE AO MISC. Usufrua das vantagens que proporcionamos aos nossos associados na aquisicao de softs, 
produtos e servicos. O Jomal do MISC e uma exclusividade dos nossos associados. Pague uma taxa unica de CzS 4.000,00 
(nao temos mensalidades) e receba gratis uma colecao de jogos em fita ou disco. Enviar cheque nominal a Embass Editora 
Ltda. ou depositar no BRADESCO na agenda 0108. conta nf 141.184-5. MSX INTERNATIONAL SERVICE CLUB - A solucao 
definitiva para o usuario MSX 

Peca o catalogo detalhado sobre o MISC 

Rua Xavier de Toledo, 210 - Cj. 23 - CEP 01048 - Sao Paulo - SP - Fone: (01 1) 34-8391 e 36-3226. 
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IB REM — ADVENTURE 

28 REN — NUHDC PERDIDO 

38 REN — PARA A LINHA NSX 

48 REN — 6UILHERME A.L. DA SILVA 

58 REN — 22/16/88 

68 REN — GUARARAPES 

61 CLEAR 1888 

62 KEY 0N:DEFUSR=*H3E 

63 STOPONiON STCf 60SUB1848 

64 POKE«fCAB,l 

78 KEYl.'PEGAR ':KEY2,'DEIXAR ':KEY3,"L 

ISTAR , KHRt(13):HY4,"AJUDAR , «CHR${13): 

tEY5, , DESISTIR"*CHRI(13):KEY7,'«?QUIV0S 

■♦CHW<13):KEY8,"PUXAR ':KEY9,'JOI3AR ": 

KEY18,'DEFENDER-SE "iKEY6,'VESTIR * 

88 COLOR 7,1 taS:L0CATEB,3jPRINT"i HU 

WO PERDIDO DA TERCEIRA DINENSAO PjLOC 

ATE 7,18:INPUT' CASSETE OU DISOUETE * 

jCUQCATE 7,1B:PRINT" Quer instrucoes 

(S/N) ? , ;SPC(16):L0CATEB,17:PRINT , DESEN 

VOLVIDO POR BUILHERNE A.L.DA SILVA" 

98 At=INKEY*:IF A*=" THEN 9B 

188 IF A«='S' THEN 60SUB 2428 

118 'PREPARAR HATRIZES DAS RESPOSTAS 

128 DIN R«(24),R(24) . 

138 REST0RE148:F0R K=1T024:READ«(K),R( 

K):NEXT 

148 DATA J06AR,4,LJNPAfi,5,LI6AR,6,PUXAR 

,7,DESISTIR,8,LISTAR,9,DEFENDER-S£,18,A 

JUIWR,ll,REPR0GRfl«W,i2,VESTIR,13,VERIF 

ICAR,14,ASSUSTAR,15 

158 DATA PE8AR l 2 l DElXMi l 3,OWMR l 16 l INB 

ERIR,17,JANELA,18,AR0UIV0S,19,LIVRAR-S£ 

,2B,BEBER,21 

168 DATA NORTE,l,SUL,l,LESTE,l,0ESTE,l 

178 REN PREPARA HATRIZES DE QBJETOS 

188 READ NB 

198DIH0B(NB),0B$(NB),St(NB) 

288 FOR 1=1 TO NB:READ OB(I),OB*(I),St( 
IliNEXTI 

218 DATA 13,7,ELIXIR,Ha ua vidro cm ua 
elixir no chao 

228 DATA 9,C0RDA,Tea uaa corda 5 polega 

das perto de voce 

238 DATA 3,BATERIA,Tea una bateria de 1 

2 volts no sofa 

248 DATA 15,R0UPA ANTl-RADIACAO,Ha uaa 

roupa anti-radiacao no chao 

258 DATA 2B,C0NTAD0R SEI6ER,Ha ui conta 

dor geiger perto de voce 

268 DATA 16,C0NPUTAD0R NSX - DESLI6AD0, 

Tm ua Super coiputador nos kus pes 

278 DATA ll.RUBI.Ue RUBJ enorae esta no 
chao 

288 DATA 8,URANI0,Ha uaa ugnifica jazi 

da de uranio 238 

298 DATA B.ANEL DO NEDO.Nos seus pes e 

sta o lendario anel do Mdo cravejado d 

e brilhantes 

388 DATA 8.ESPADA DE OURO.Uaa linda esp 

ada de ouro que foi deixada pelos segui 

dores! ! ! 

318 DATA 19,TELEP0RTAD0R,Tet ua telepor 



tador diieniional no cintoda ula 

328 DATA 0, NUT ANTES, Ik grupo de autante 

s aparece nuia fuaacaverielha 

338 DATA 8,DISQUETE,Ha ui disquete de c 

oiputador no bolso 

331 REST0RE335:DIMI(24):F0RI=1T024:REA 

DL«(I):NEXT 

335 DATA DESFILADEIRO DO MJNCA,,CASA DO 
ESPANTQ,„SALA DE FENIX.FLORESTA PETRI 

FICADA,SAARA DIMENSIONAL 

336 DATA ENCRUZILHADA,GRUTA DO TERROR, T 
EHPLO DA SRUTA.HONTANHAS ROCHOSAS, „USI 
NANUCLEAR 

337 DATA SAIDA LESTE.PONTE DE CORDA.CAC 
HOEIRA DE ACIDO.SALA DO TELEPORTADOR,LA 
BORATORIO.REATOR DA USINA„,ID0L0 DE PE 
DRA 

348 ' M POSICAO INICIAL tt 

358 L-l 

360 ' ACHAR LOCAL 

378 IF FHOl AND MM THEN GOTO 2628 

371 CLS.'PRINT* aundo perdido da 3 

a diaensao ' 

368 COLOR 15,4 

398 NMM:(>INT(RND(-TIHE)I5):IF FHO 

1 AND HT>25 AND 04 THEN MMiQ8(12)«L 

391 IF FHOl AND HU=2 THEN GOTO 2628 

392 IF FHOl AND MM THEN MM 

394 IF L<11 THEN ON L G0SUB1B18„1B4B„ 

,1888,1910, 1948,1978,288B:SOT0 428 

480 IF L<21 THEN ON L-10 GOSU62048,2BB8 

,,,2128, 2150,2180,2228,2260, 2298:GCT0 4 

28 

418 IF L<26 THEN ON L-28 60SUB2328,„23 

60 

428 'COLOCA CADA OBJETO EH LU6AR 

430 FOR I=lTONBsIF 08<IK THEN PRINT S 

*(I) 

440 NEXT 

450 ' APONTAR DIRECOES 

460 ' 

478 PRINT'Pode seguir' 

475 PRINT 

480 IF N>0 THEN PRINT T«(S)|*NDMl ' 

L«(L-6) 

490 IF S>0 THEN PRINT TAB(5)j'SUL : " 

L*(irt) 

500 IF E>0 THEN PRINT TAB(5)i'LESTE: " 

L«(L+1) 

510 IF N>0 THEN PRINT TAB(S);"OESTE: ■ 

Lt(L-l) 

520 ' INSTRUCOES 

530 PRINT! INPuT'E agora «t» 

540GOSUB 1298 

558 ' SELECIONA OPCAO 

560 IF W! THEN SOTO 580 

570 ON I GOTO 600,770,888,950,1050,1110 

,1228,1000,700,2788,1380,1488,1568,1620 

,1670,1730,2508,378,3008,2908,3500 

588 PRINTrPRINT'Eu nao sei coao ";V$:SO 

TO 430 

590 ' ROTINA DE HOVIHENTO 

608 IF lt="0' AND N>8 THEN L=L-1:G0T0 3 



78 

618 IF I$="N" AND N>8 THEN L=L-6:G0T0 3 
78 

648 IF Ka'L" AND E>8 THEN L=L+1:G0T0 3 
70 

658 IF I»=*S" AND S>8 THEN L=L+6:60T0 3 
70 

678 " SE NAO HOOVER LOCAL POSSIVEL NESS 
ADIRECAO 

688 PRINTiPRINT'DESOLPE - Voce nao pod 
e seguir por estecaainho.':60TQ 398 
698 'L1STAR 

788 PRIWT'VOCE TEN :';:IN=0 
710 FOR6=1TONB 

720 IF 0B(6)=-1 THEN PRINTTAB(10);OB*(6 
):IN=IN+1 
730 NEXT 

748 IF IN=0 THEN PRINT 'NADA" 
750 SOTO 390 
760 ' pegar 
778 FOR 6=1 TO NB 

780 IF INSTR(0B*(6),N»)=1 THEN GOTO 818 
798 NEXT 

880 PRINTN»;"???':60T0 390 
818 IF 0B(6)=-1 THEN PRINT'VOCE JA TEN. 
":6OT0 398 

828 IF GS(G)OL THEN PRINT'NAO ESTA AOU 
I.':BOTO 390 

830 IF 0B(6)=0B(12) OR 08(6)=OB(11) THE 
N PRINT'VOCE NAO POKE PE6AR ISSO!":B0T0 
390 

848 IF 0B(G)=OB(4) THEN PRINT'VOCE TEH 
QUE VESTI-LA.'jfiOTO 398 
841 IF 0B(G)=OB(2) AND CJ08 THEN PRINT 
"VOCE TEH QUE PUXA-LA.*:GOTQ 390 

843 REN F0RI=1T0NB:IF QB(I)=-1 THEN NJ= 
NJ+1 

844 REN NEXT 

845 REN IF NJ>=5 THEN PRINT'VOCE NAO PO 
DE CARRESAR TANTA COISA!':6OTQ390 
850PRINT'Ot;... , :OB(e)»-l 

860 SOTO 390 

878 ' DEIXAR 

888 FOHMTONB 

890 IF INSTR(0B»(G),N*)=1 THEN 910 

900 NEXT:PRINTWj'???':80T0 390 

910 IF 0B(6)O-l THEN PRINT'VOCE NAO PO 

DE LAR8AR QUE NAO TEH!':eOTO 398 

920PRINT'OI!... , :OB(6K 

930 GOTO 398 

948 ' JOGAR 

950 IM"INSTR("C0RDA',N»):1F IN<1 THEN P 

RINT'INPOSSIVEL - "(N»j , ??? , :8OT0 390 

960 IF 0B(2)O-l THEN PRINT'VOCE NAO TE 

H CORDA.':BOT0 390 

970 IF L01B THEN PRINT'VOCE NAO PRECIS 

A FAZER ISS0!':60T0 390 

988 IF CJ=1 THEN PRINT'JA FOI FEITO'iSO 

TO 398 

990 PRINT'QK.":CJ=i:0B(2)=L:GOT0 390 

1BB8 ' desistir 

1818 PRINT sPRINT" Quer jogar novaa 

ente (s/n)?' 
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1020 A$=INKEY»:IF M»" THEN 1B28 

1838 IF A«='S' THEN RUN 

1048 KEYON:COLOR 15,1,1:CLS:A=USR(0):EN 

D 

1858 ' LIMPflfi 

1868 IN=INSTR{'VE6ETAC«)",M$):IF IN<1 T 

HENPRINT , IST0NA0M , . , :60T0 398 

1878 IF 0B(B)=24 OR QB(8)=-1 THEN PRINT 

"JA FOI FEITO .*:60T0 398 

1888 IF L024 THEN PRINT" IHPOSSIVEL !!? 

? , :60TO 398 

1881 IF 08(4)0-1 THEN PRINTVOCE FOI C 

ONTANINADO PELA ALTISSINA RAOIACAO 

DO URANIO 23B.":N=B:E=B:S=8:H=B:GOT0 39 

B 

1B98 LV=1:0B(8)=24:G0T0 398 

1188 ' LIGAR 

1118 FOR 6=1T0NB 

1128 IF Nt=LEFT«(OM(G),LEN(N«)) THEN 1 

158 

1138 NEXT 

1148 PRINT"????" :60T0 398 

1158 IF 606 AND 6011 THEN PRINT'NAO D 

A'.":B0T0 39B 

1168 IF 0B(6)O-l THEN PRINT'FALTA COMP 

UTAD0R.":60T0 398 

1165 IF 6=6 AND 08(3)<H THEN PRINT'FA 

LTA BATERIA":60TO 398 

1178 IF 6=11 AND L019 THEN PRINTLU6A 

R ERRAD0.*:6OT0 398 

1188 IF 6=11 AND RR=8 THEN PRINT'COMO V 

OCE NAO REPROSRAI10U SE DANOU, POIS TE 

LEPORTADOR SOLTOU UNA TAHANHA DESCAR6A 

DE LASER EN VOCE..ESTAS H0RTO(*:80TO 18 

08 

1185 IF 6=11 AND L0O1 THEN PRINT'LIVRE 

-SE DOS OBJETOS DESTE NUNDO.'iGOTO 398 

1198 IF 6=11 AND RR=1 THEN GOTO 2398 

1288 IF 6=6 AND IS=8 THEN PRINT'FALTA I 

NSERIR DISOLETE NO COHPUTAD0R.":6OT0 39 

B 

1218 IF 6=6 AND 0B(3)=-1 AND IS=i THEN 

PRINT"0»;.":LR«1:0B(3)=8!0B(13)=8:0M(6) 

=LEFTt(17,0B*(6))+"LIGAD0 "tSOTO 398 

1228 ' PUXAR 

1238 IN=IMSTRCCOra»A",N»):IF IN<1 THEN 

PRINT" IHPOSSIVEL - "}N$i"???":GOTO 398 

1248 IF 0B(2)OL THEN PRINT'AQUI NAO TE 

H C0RDA.":60T0 398 

1258 IF L018 THEN PRINT'VOCE NAO PRICI 

SA FAZER ISSO!":60T0 39I 

1268 IF CJ=8 THEN PRINT'JA FOI FEITO" 

1278 PRINT"0K.":CJ=8:O8(2)=-l!B0TO 398 

1288 ' INSTRUCAO DE CHECA6FJ1 

1298 I=8:N«="":I=INSTR(IV ") 

1388 IF 1=8 THEN W="?????":V»=It:60T0 

1338 

1318 V$=LEFT$(I»,I-1) 

132BN$=NIM(I«,M) 

1338 1=8 

1348 FOR K=1T024 

1358 IFINSTR(R*(K),V$)=1 THEN I=R(K):II 



=LEFT«(V*,1) 

1368 NEXT 

1378 RETURN 

1388 ' AJUDAR 

1398 PRINTiPRINT'SEUS VERBOSi'pFOR IM 

T028:IF U=28 THEN PRINTW(U):PRINT:NEXT 

:6OT0 1488 &SE PRINTR»(U)j", ";:NEXT 

1488 IF L=9 AND BR01 THEN PRINT" Beba 

o elixir da coragei e da vida.":60T0 3 
98 

1418 IF L=16 THEN PRINT" Nao passe pel 
a ponte cm o CMputador..":60T0 398 
1428 IF L=1B OR L=12 THEN PRINT'Assuste 

os seguidores iipiedosos.":PRINT:60T0 
398 

1438 IF L=24 AND 08(5)0-1 THEN PRINT"? 
egue o contador geiger.":PRINT:60T0398 
144B IF L=6 THEN PRINT'Chaie Fenix...": 
PRINT :60TO 390 

1458 IF L=19 THEN PRINT"Para ligar o te 
ieportador procure: disquete,CMputador 
,bateria,rubi,uranio 238.":PRINT:G0T0 3 
90 

1455 IF 0B(4)=-1 AND INT(RND(-TIHE)J2)= 
1 THEN PRINT'Verifique bolso da roupa a 
nti-radiacao.":60T0 390 

1456 IF INT(RND(-TME)I5)+1=3 THEN PRIN 
T"Defenda-se cot a espada du assuste co 

■ o inel os iutante5...':6QT0 390 

1457 IF INT(RND(-TIKE)I2)=1 THEN PRINT" 
Seu objetivo e reprograiar o teleportad 
or epara isso precisa de:p/ calculos, u 

■ CONPUTADOR hgadofc/ BATERIA E DISQUE 
TE), ua RUBI estabilizador de fotons, u 
■a jazida de URANIO 23B para coibustive 
I.":PRINT:6OTO390 

1468 GOTO 390 

1470 ' REPRQGRAI1AR 

1480 IN=INSTR("TELEPORTADOR COM COHPUTA 

DOR",NS):!F 1N<1 THEN PRINT'NAO DA'.":6 

OTO390 

1498 IF L019 THEN PRINT"LU6AR ERRADO." 

:GOTO 398 

15BB IF OB(4)0-1 THEN PRINT'FALTA COMP 

UTADOR.' 

1518 IF 0B(4)=-1 AND LR=8 THEN PRINT'CO 

HPUTADOR DESLIGADO." 

1528 IF 0B(7)O-l THEN PRINT'FALTA RUBI 

ENER6ETIC0." 

1538 IF 08(8)0-1 THEN PRINT'FALTA URAN 
10 238" 

1535 IF IS=8 THEN PRINTO DISOUETE NAO 
ESTA INSERIDONOCOrFUTA-OOR...' 
1548 IF IS=1 AND LR=1 AND 0B(7)=-1 AND 
0B(8)=-1 THEN PRINT'QK. Pronto para fun 
cionar.':RR=l:Sl(ll)="Ha o teleportador 

reprograiado para as cordenadas terraq 
ueas na sala°:GOT0 398 
1558 GOTO 398 
1568 'VESTIR 

1578 IF 0B(4)OL THEN PRINT'NAO ESTA AQ 
UI.":60TO 398 



1580 IN=INSTR( "ROUPA", N«):IF IN<1 THEN 

PRINT'ISTO NAO PODE SER FEIT0":6OT0 390 

159B IF 0B(4)=-1 THEN PRINT" JA ESTA VE 

STIDA.":60TO 398 

1688 0B(4)=-l:PRINT'0K.":6OTO 398 

1618 ' OLHAR 

1620 IN=INSTR("BOLSO",N«):IF IN<1 THEN 

PRINT* IHPOSSIVEL ??I!":60T0 398 

1638 IF 08(4)0-1 THEN PRINT'NAO ESTOU 

VENDO BOLSO." :60T0 398 

1640 IF 0B(13)=L OR 0B(13)=-1 THEN PRIN 

T'JA FOI FEIT0.":60T0 390 

1650 PR1NT'0K.':0B(13)=L:60TQ 390 

1660 ' ASSUSTAR 

1670 IN=1NSTR( "SEGUIDORES COM ANFT'.Nt) 
iIF IN>=1 THEN 1680 

1671 IN=INSTR('NUTANTES CON ANEL",N$):A 
=1 

1675 IF IN<1 THEN PRINT'NAO POSSO *iV* 

;"";N$ 

168B IF 0B(9)O-l THEN PRINT'CON QUE?": 

A=8:60TO 390 

169B IF A=0 AND L012 AND L01B THEN PR 

INT:PRINT:PRINT" Com nao existet segui 

dores aqui a Hl-dicao voltou-se contra 

voce e o transforwu e* •ar«re...":60 
TO 1818 

1695 IF 0B(12)OL AND A=l THEN PRINT:PR 
INTiPRINT" Os wtantes ouvira* voce e t 
e atacarai de tansinho pelas costas. Vo 
ce foi cortado ao Kio pelas espadas mi 
tantes...":G0T01B18 
1708 IF AU=1 AND A01 THEN PRINT'JA FOI 

FEIJO!":A=8:60TO 398 
1781 IF FK=1 AND AO0 THEN PRINTsPRINT: 
PRINT'OS NUTANTES RESSUCITARAH...':FH=B 
:GOT0 398 

1718 IF A01 THEN PRINT'OL'iPRINTsPRIN 
T'Os seguidores aiendrontados cm 
seugesto ajoelharai a seus pes, e lhe e 
ntregarn in presence... ":PRINT:AU«1:0 
B(1B)=L:60T0 398 

1711 NU=8:0B(12)=8:PRINT:PRINT' Os Kita 
ntes forai etbora correndo ( CMtedo da 

■aldicao do anel)e proietendo vinganca 

... ":G0T0398 

1728 ' CHAHAR 

1738 IF L06 THEN "NAO TEH NIGUEM AQUI! 

":GOTO 390 

1740 IN=INSTR("FENIX",I«):IF IN<1 THEN 

PRINT"QUENE' ••,«!"???" '.GOTO 390 

1758 IF FE=1 THEN PRINT :PRINT"VOCE ABOR 

RECEU FENIX !!!' :PRINT"ELA HANDOU HILHO 

ES DE URUBUS TE HATAR.":PRINT"VOCE HORR 

EU ..."'.eOTO 1008 

1760 PRINT'OK.':PRINT:PRINT"U(M ave lin 

da e delicada poe ao seus pesui present 

e de FENIX, o ANEL DO HEDO,e)etei o pod 

er de lancar uldicoes e quen posuir 

tera poderes ilititados...':PRINT 

1778 0B(9)=6:PRINTS»(9) 

1780 NEXTiGOTO 530 



46 CPU 



1790 ' DESCRICAO DOS LOCAIS 

1886 ' LOCAL 1 

1810 PRINT" Voce esta nut desfiladeiro 

set fundo, o DESFILADEIRO DO NUNCA..." 
1828 WtE*WlWiRETUBI 
1838 ' LOCAL 3 

1840 PRINT" Voce esta na Hansao Hal -As 
soibrada." 
1850 IF BROl THEN PRINT" Os espiritos 

da Hansao lhe derai ui susto e voce i 
orreu de tedo...":G0T0 1008 
I860 N=fl:E=8:S=l:H=*:RETURN 
1870 'LOCAL 6 
1888 PRINT" Aqui e a Sala Encantada de 

Fenix - a ave sagrada.' 
1B90 N=0:E=8:S=1:»=0:RETURN 
1900 ' LOCAL 7 

1910 PRINT" Voce esta na Floresta Petr 
ificada." 

1920 N=1:E=1:S=8*0:RETURN 
1930 ' LOCAL 8 

1940 PRINT" Voce esta no laligno Deser 
to do Saara D l tension a i." 
1950 N=0:E=1:S=0*1:RETURN 
1960 ' LOCAL 9 

1970 PRINT" Aqui e a encruzilhada dos 
Indecisos." 

1980 N=1:E=1:S=1:H=1:RETURN 
1990 ' LOCAL 10 
2000 PRINT" Tu estas na fantastagorica 

e lendaria, GRUTA DO HORROR!!!' 
2010 IF (OB(10)=-1 AND AUOl) OR (OB(10 
)0-l AND AUOl) THEN PRINT" Os seguid 
ores de THANTHANDACUCA, estaovindo te p 
egar. Faca alguia coisa!' 
2828 N=8:E=1:S=8:#=1:RETURN 
2830 ' LOCAL II 

2040 PRINT" Tu estas no teiplo dos seg 
uidores de THANTHANDACUCA, os iipiedos 
os..." 

2050 IF AUOl THEN PRINT" Os itpiedoso 
s e camiceiros seguidoresde THANTHANDA 
CUCA te eibalsatarai nut sarcofago para 

setpre!!!???':G0T0 1000 
2060 N=8:E=l:S=8:*=l:RETtJRN 
2070 ' LOCAL 12 
2088 PRINT' Voce saiu da 6ruta e agora 

esta nuia Hntanha rochosa." 
2890 IF (QB<10)=-1 AND AUOl) OR (OB(10 
)<>-! AND AUOl) THEN PRINT" Has os se 
guidores de THANTHANDACUCA, estaovindo 
te pegar. Faca alguia coisa I" 
2100 N=1:E=0:S=1:N=1:RETURN 
2110 ' LOCAL 15 

2120 PRINT" Voce acaba te entrar na gr 
ande e potente USINA NUCLEAR DE TAN6A D 
OSREIS..." 

2130 N=l:E=l:N=0iS=l:RETURN 
2140 ' LOCAL 16 

2150 PRINT" Voce esta na saida leste d 
a usina." 

2160 N=0:E=1:N=1:S=8:RETURN 
2170 ' LOCAL 17 
2180 PRINT" Voce esta na target de ut g 



rande vale, que e atravessado por uta po 
nte de corda.' 

2190 IF 0B(6)=-1 THEN PRINT" A ponte se 
partiu por excesso de peso do cotputa 
dor...":60T0 1800 
2208 N=fl:E=l:S=0:N=l:RETURN 
2210 ' LOCAL 18 

2220 PRINT" A sua frente ha uta cache* 
ira de acido sulfurico." 
2238 IF CJOl THEN PRINT" Voce nao pod 
e atravessar a nado!!":N=0:E=0:S=0:N=l: 
RETURN 

2240N=1:E=0:S=1*1:RETURN 
2258 ' LOCAL 19 

2260 PRINT" Voce esta na sala do telep 
ortador di- tensional." 
2270 N=0:E=1:S=8:*=8:RETURN 
2288 ' LOCAL 28 

2290 PRINT" Voce esta no laboratorio d 
a usina.' 

2380 N=8:E=1:S=8:IH:RETURN 
2310 ' LOCAL 21 

2320 PRINT" Tu estas no centro do reat 
or tertonu- clear da usina." 
2330 IF 0B(4)O-l THEN PRINT" Cow a r 
adiotividade e tuito grande e voce nao 
esta cot a roupa certa, voce torreu co 
ntatinado.":G0T0 1008 
2340 N=1:E=*:S=0:N=1:RETURN 
2350 ' LOCAL 24 

2360 PRINT" Ha uta vegetacao tuito est 
ranha sobre ut idolo.' 
2370 IF 0B(5)O-l THEN N=l:E=*:S=0:tt=0: 
RETURN 

2380 IF LVOl THEN PRINT" contador g 
eiger esta denunciando alguia coisa 
na vegetacao!!!" 

2381 N=l:£=fl:S=8:*=8:R£TURN 
2398 ' VITORIA 

2400 CLS:C0L0R 5,1:PRINTTAB(13) ;"A Tele 
portacao" 

2401 PRINT:PRINT" ";CHR$(&H22);"T 
eleportador";CHR((liH22);" foi acionado. 
.."iPRINT" Raios de laser de varias 

cores e espessuras percorrei a sala, n 
o painel de controle as luzes piscat ir 
eneticatente, de repente ut alarte toca 

2482 PRINT" que sera ??" 

2403 PRINT:PRINT" E' a teleportacao 
que esta se processando. Ut raio o atr 

avessa, voce net o sente e...' 

2404 PRINT" Quando voce abre os olh 
os, esta de volta ao spu tundo, a sua c 
asa.':PRINT' Agora esta no seu quar 
to, ao redor, nao tet ninguet. Qlha o r 
elogio e:Sexta,13 de Agosto de 2004 Bs 
11:31 da noite!" 

2405 PRINT" Foi ut sonho?!" 

2406 L0CATE9,21:PRINT"Pressione Oualque 
r Tecla":IF INKEY*=" THEN 2406 

2407 CLS:PRINTTA8(13)j'A Teleportacao' 
2488 PR1NT:PRINT:PRINT' Voce poe su 
a tao no bolso e sente alguia coisa de 



estranho." 

2409 PRINT" Has coto, voce abandono 
u tudo ?":PRINT" Voce pega, olha." 

2410 PRINT" Utpapel! Voce o abre. 
Uta Carta! Voce le esta:' 

2412 PRINTiPRINT" Isto nao foi ut s 
onho." -.PRINT" Foi uta aventura e ta 
nto!!!' 

2415 PRINTSPC(5);"Eu voltarei, bravo av 
entureiro. ' :PRINTSPC(5) i 'Eu vol tarei . . . 
":PRINTSPC(5);"Voltarei para novas e et 
ocionantes" ;SPC(6) ; 'aventuras.' :PRINTTA 
B(17);"ASS: LORD TREVAS":PRINT 

2417 LOCATE0,9:FORK=10TO16:LQCATE0,>::PR 
INT' ":L0CATE39,K:PRINT' ":NEXT 

2418 LOCATE0.17 

2419 PRINTsGOTO 1080 

2420 LOCATE 0,22:COLOR 15,13:PRINT:PRIN 
T 

2430 PRINT:PRINT" tundo perdido d 
a 3a ditensao':PRINT 

2440 PRINT" Houve ut acidente geo-d 
itensinal nuia Sexta-feira, 13 de Agost 
o de 2084(bissexto) fc 11:30 da noite." 

2441 PRINT* Devido ao fortalecitent 
o da ia sor_te neste detest ado dia, voc 
e foi puxado para "jCHM(tH22);"0 Hundo 

Perdido da 3a Dir*nsao'jCHR«(»H22)jV 
2450 PRINT" Voce deve reprograiar o 

unico tele portador existente no unive 
rso, para vol tar a terra reyer sua faii 
lia." 
2460 PRINT' Com esse tundo e tuito 

hostil, cuidado! Voce enfrentara cacho 
eiras de aci do, lansoes lal-assotbrada 

s, fanaticos religiosos e tuito tais.. 

■ 

2470 PRINT :PRINT" Quando nao souber 
o que fazer escreva AJUDAR (et taiucul 
as).' 

2480 PRINT:PRINT:PRINT:PRlNTTAB(9)j 'Pre 
ssione Oualquer Tecla* 

2481 L$=INKEY$:IF L$=" THEN 2481 

2482 LOCATE13,22:PRINT:PRINT* 
'CONTINUACAO' "SPRINT 

2483 PRINT" Coto desgraca pouca e b 
obaget ha taibei ut grupo taligno de 
tutantes do apocalipse, quando estiver 
na presenca deles digite DEFENDER-SE DO 
S NUTANTES (qdoestiver cot a espada) ou 

ASSUSTAR HUTAN-TES(qdo estiver c/ o an 
el)." 

2485 PRINT" Se nao fizer isto voce 
sofrera na carne ut ataque tutante dev 
astador.":PRINT:PRINT" A opcao ARQU 
IVOS lhe da ut tenu cot opcoes de LEITU 
RA,6RAVA*A0,ETC para as-sit gravar o jo 
go et qualquer parte." 

2486 PRINT 

2487 PRINT" Esse adventure foi desenvo 
lvido por: ";:PRINT" GUILHERME ARAUJO 
LIHA DA SILVA (C)1987 "; ' 

2488 PRINT 

2489 PRINT:PRINT" Qualquer tecla pa 
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ra continuar" 

2498 LWNKEYIiIF L$<>*" THEN RETURN EL 

SE 2498 

2580 ' INSERIR 

2S18 IN=INSTR("DJSQUETE NO COMPUTADOR" , 

W)iIF INOl THEN PRINT" IHPOSSIVEL???"! 

GOTO 398 

2528 IF 08(6)0-1 THEN PRINT'QUE COMPUT 

AOOR?" 

2538 IF 0B(13)<>-1 THEN PRINT'QUE DISQU 

ETE?* 

2535 IF IS=1 THEN PRINT'JA ESTA INSERID 

0...":GOTO 398 

2548 IF 0B(13)=-1 AND 0B(B)=-1 THEN PRI 

NT'OK...ESTA INS£RID0!':IS=1 

2558 GOTO 398 

2688 ' HUTANTES 

2628 IF HJ<1 THEN KM-.60T0 393 

2622 IN=8:F0RI=1T0NB:IF 0B(I)=-1 THEN I 
N=IN+1 

2623 NEXT I 

2625 IF INOB THEN GOTO 2888 

2638 IF IN=8 THEN PRINT'OS HUTANTES TE 

HiHARAff P01S VOCE NAOTINHA NADA PAR 

A SER ROUBADO/iSOTO 1888 

2688 GOTO 398 

2788 ' DEFENDER 

2781 IN=INSTR("DOS MUTANTES'.NDjIF IN< 

>1 THEN PRINT" IHPOSSIVEL - "jWj"??? , :6 

OTO 398 

2718 IF 0B(12)OL THEN PRINT"DO QUE?":G 

OTO 398 

2728 IF OB(1B)0-1 THEN PRINT'COH QUE 

?":G0T0 398 

2748. FH=1 

2741 PRINT'Voce e atacado por ui wtant 
e...":PRINT"Voce o corta...ele geae e c 
ai!":F0RV=lT018BB:NEXT 

2742 PRINT'Vet outro...VKe da ua soco, 
..':PRINT"Ele rodopia e cai!":FORV=lT01 
■MBIT 

2743 PRINT'Vet o chefe coa uia espada.. 
.voce o ataca...ele defende e trope 
ca...":F0RV=lT0288B:NEXT 

2745 PRINT'Voce o lata friaaente.ele so 

Ita ua horripilante hurro e abraca 

aaorte!!!*:F0RV=lTQ5W:NEXT 

2758 IF N=8 THEN Ofi(12)=8:N>8:60TO 398 
ELSE PRINT'Noi itui pes estao os objet 

os saoueados.'iBEEPiBEEPiBEEPiBEEP 

277B FOR MTOH 

2771 OB(H(I))=L:NEXT 

2788 OB(12|=8:80TO 398 
2888 ' ROTINA DOS HUTANTES 
2818 K=INT(RND(1)INB)*1:IF 0B(K)<>-1 TH 
EN GOTO 2818 

2828 PRINT'OS HALDITOS HUTANTES'-.PRINTT 
AB(9) ;"R0U8ARAH-LHE:" ;08«(K) :IWM :OB(K 

)=8:M(M)=K:NU=8:HT=8:OB(12)=8:60TO 398 

2988 ' LIVRAR-SE 

2918 IN=INSTR("D0S OBJETOS",N*):IF IN<1 

THEN PRINT'LIVRAR-SE DO 0UE???!!! , :60T 
398 



2915 8J=8 

2916 IF L0=1 THEN PRINT'OUTRA VE2?':60T 
398 

2928 FORI=1TONB:IF 0B(I)=-1 THEN BJ=BJ+ 

1 

2921 NEXT 

2925 IF RR01 THEN PRINT'AGORA?":GOTO 3 

98 

293B IF BJ=B THEN PRINT "QUE OBJETOS??" 

:GOT0 398 

2948 FORI=1TONB-1:IF 1=6 OR 1=7 OR 1=8 

OR THEN NEXT &SE 08(I)=8:NEXT:L0=1 

2958 PRINT"0K...AL6UNS DESAPARECERAN.MA 

SiCOHPUTADOR LIGADO,URANI0 E RUBI NAO.' 

:SOT0 398 

3888 ' AROUIVOS 

3818 as : COLOR 1,11 

3811 IF LEFT*(CI,1)='C OR LEFTI(C*,1)= 

"c" THENF*='CAS:':F=1 

3815 ON ERROR GOTO 3608 

3828 PR!NTTAB(5)"L0AD / SAVE / KILL / F 

ILES' 

3838 L0CATE14,6:PRINT' 1 SAVE* 

3848 L0CAT£14,7:PRINT" 2 LOAD' 

3B5B L0CATE14,8:PRINT' 3 KILL" 

3868 L0CATE14,9:PRINT' 4 FILES" 

3865 L0CATE14,1B:PRINT' 5 VOLTA" 

3878 L0CATE18,17:PRINT'QUAL A SUA ECOLH 

A :" 

3888 S*=INKEYtilF S«=" OR SI<"1" OR S$ 

>"5" THEN 3088 

3898 ON VAL(SI) SOTO 3188,3288,3388,348 

8,378 

3188 ' SAVE 

3118 aS:PRINTTAB(14)"l SAVE I" 

3128 L0CATE1B, IB: INPUT "OUAL NOHE'jNA 

t 

3138 NA*=FI+NAI+".ADV":0PEN NAt FOR OUT 

PUT AS II 

3135 PRINTIi,LV:PRINTIl,LR:PRJNTIl,LO:P ' 

RINTIl,A:PRINTIl,AU:PRINTIl,CJ:PRINrtl, 

RR:PRINT*1,!S:PRINTI1,BR 

3148 PRINTIl.NB 

3158 FOR I=1T0NB 

3168PRINTI1,0B(I) 

3178 NEXT 

3180 PRINTI1,H:PRINTI1,MT:PRINTI1,HU:PR 
INTI1,FH:PRINTI1,L 

3181 IF H=8 THEN 3185 ELSE F0RI=1T0M:PR 
INTfl,N(I):NEXT 

3185 CLOSE II 

3198 L0CATE17,28:PRINT'0K.' 

3199 IF JNKEY*='" THEN 3199 ELSE GOTO 3 
008 

3288 ' LOAD 

3218 aS:PRINTTA8(14)'l LOAD #' 

3228 L0CATE1B,18: INPUT 'OUAL NOHE'jNA 

I 

3238 NAI-FI+NM+'.ADV'iOPEN NW FOR MP 

LIT AS II 

3235 INPUTI1,LV:INPUTI1,LR:INPUTI1,L0:I 

NPUTI1 ,A: INPUTI1 ,AU: INPUTI1 ,CJ: INPUTI1, 

RR:INPUTI1,IS:INPUTI1,BR 



3248 INPUTIl.NB 
3258 FOR I=1T0NB 
3268 INPUTIl.OBd) 
.3278 NEXT 

3271 INPUTI1,H:INPUTI1,NT:1NPUTI1,NU:IN 
PUTI1,FH:INPUTI1,L 

3272 IF H=8 THEN CLOSEIhGOTO 3298:ELS£ 
F0RI=1T0H:INPUTI1,N(I):NEXT:CL0S£I1 

3274 FOR U=1T0H 

3275 08(N(U))=8 

3276 NEXT:6OT0 3298 

3298 LOCATE17,28:PRINT'0»:." 

3299 IF INKEYi="" THEN 3299 ELSE GOTO 3 

3388 ' KILL 

3381 IF F=l THEN 3888 

3318 CLS:PRINTTAB(14|"I KILL I" 

3328 LCCATE18, 18: INPUT "QUAL NOHE'jNA 

I 

3325 LDCATE17,2B:PRINT"0»:." 

3338 NA«=NA»t".ADV":KILL NAI 

3335 L0CATE17,28:PRINT'0K." 

3348 IF INKEYI='" THEN 3348 ELSE GOTO 3 

70 

3408 ' FILES 

3481 IF F=l THEN 388B 

3418 aS:PRINTTAB(13)"l FILES I" 

3428 LCCATEB,9:FILES"t.ADV" 

3425 L0CATE17,2B:PRINT"0K." 

3438 IF INKEY»="" THEN 3438 ELSE GOTO 3 

088 

3588 ' BEBER 

3518 IN=8:IN=INSTR("aiXIR",N*);IF IN<1 

THEN PRINT"NAO FA«A HE RIR ":G0T0 398 
3528 IF 0B(l)O-l THEN PRINT'VOCE NAO P 
ODE BEBER QUE NAO TEN...':GOT0 398 
3538 IF BR08 THEN PRINT:PRINT' VXE T 
OHOU UHA 'OVERDOSE' DE aiXIR':PRINT" 
SUA 6ULA HATOU !!':GOT0 1088 
3548 PRINT'OK! VOCE ESTA FORTE COMO UN 
TOURO !!!":BR=1:60T0 39B 
3608 ' ERROS 

3618 IF ERR053 THEN 3628 ELSE PLAY"V15 
07C8":LCCATE8,16:PRINT*ARQUIV0 INEXISTE 
NTE !!!":R4«=INPUTI(1):RESUNE380B 
3628 IF ERR056 THEN 3638 ELSE PLAY"V15 
07C8":LCCATE18,16:PRINT"N0HE INCORRETO 
!!!":R4I=INPUTI(1):RESUNE3000 
3630 IF ERR067 THEN 3648 aSE PLAY"V15 
07C8":L0CATE18,16:PRINT"DIRET0RI0 CHEIO 

!!!":R4$=WUT*(1):RESUHE3B8B 
3648 IF ERR066 THEN 3658 aSE PLAY"V15 
07C8':LCCATE13,16:PRINT'DISC0 CHEIO !!! 
":R4»=INPUTI(l):RESUHE38e8 
3658 IF ERR068 THEN 3668 ELSE PLAY'V15 
07C8":LQCATE11,16:PRINT"OISCO PROTEGIDO 

!!!":R4I=INPUTI(1):RESUH£3000 
3660 IF ERR069 THEN 3678 aSE PLAY'V15 
OVCB'iLCCATEn.toPRINT'ERRO DE E/S !!! 
":R4*=INPUTt(l):RESUHE3800 
3678 IF ERR07B THEN 3688 aSE PLAY"V15 
07C8"iLOCATE13,16!PRINT"FALTA DISCO !M 
":R4I=INPUTI(1):RESUHE3000 
3690 LOCATE 14,16:PRINT"ERR0 !!!":R4I=I 
NPUTI(1):RESUME30B0 



BATTLE FOR MIDWAY 



TAN I A ALVES 
MSX INFORMATICA 



APRENDA A JOGAR UM DOS MELHORES 
JOGOS DE ESTRATEGIA PARA O MSX. 



Battle for Midway c um dos melhores jogos de 
eslrategia fcitos para o MSX. Ncle sc cquilibram a veracidade do 
fato hist6rico real com o desafio dc um cxcelentc jogo. Tendo por 
base a verdadeira balalha travada entre americanos e japoneses, 
este jogo consegue aliar de forma supreendente eslrategia c muita 
ac3o. 

Assim, consegue agradar tanto os aficcionados em 
jogos de guerra como os de qualquer outro tipo de jogo. Muito mais 
realista do que um jogo de tabuleiro, ondc o jogador "todo-pode- 
roso" tern o total controle da situacSo. Em Batde for Midway, o 
computador permite que o elemento surpresa seja aproveitado, de 
modo que voce possa provar que 6 um bom estrategista. 

Por outro lado, com a utilizacao dos recursos do scu 
MSX, o jogo tarn bem apresenta cenas de com bate nas quais voce 
participa e tern a chance de mostrar as suas habilidades ao se 
defrontar com o inimigo. 

Para conseguir jogd-lo at6 o fim, hS a nccessidadc de se 
cstudar muito bem o manual, scm o qual poucas coisas poderao ser 
feitas para se veneer a balalha. Nele estao explicados os diversos 
ni'veis de jogo, bem como as velocidades disponfveis do jogo e sua 
relac3o com o tempo real. Alem disso, ele explica as diversas 
unidades adreas e navais, com seus c6digos, cores e relatonos, sem 
deixar de lado as explicafOes da movimentacao da unidade, 
condicoes de voo, reconhecimento, ataques aereos e de superficie, 
etc. 

TATICAS DE JOGO 

Batde for Midway foi programado visando reconstruir, 
da forma mais real possi'vel, as tensoes e os imprevistos de uma 
batalha, alem de desafiar a capacidade cstrategica do jogador. Nele 
foram inclufdos um relogio e limitacOes de combusli'vel que 
tiveram por objetivo recriar as pressoes que sofre um comandante 
durante um combate. As sequencias de ac3o em tempo real s3o 
utilizadas para propiciar uma vis3o de batalha. Mas o jogo tern 
"armadilhas". Por exemplo: o jogador nunca podc ter certcza de 
que um porta-aviSes afundou mesmo que possa ve-lo em chamas. 

De outro lado, porta-aviOes, que aparentemente sairam 
ilesos do combate, poderao afundar posteriormente. 

Os aviOes de reconhecimento s3o usados para represen- 
tar os hidro-avioes que estavam baseados em Midway. Como s3o 
hidro-avioes, permaneccm operacionais mesmo que a base aerca 
de Midway seja destrui'da. 

Algumas vezes s3o notadas falhas na area de reconhe- 
cimento. A itenc3o e de "punir" o jogador pelo uso de taticas 
inadequadas, mas tambem representa a confusao que resultaria de 
uma observac3o mal feita em uma situacSo real. 

As frotas japonesas tern a capacidade de sumir por 
algum tempo, depois de um combate de superficie. Este recurso foi 



utilizadoparasimularadificuldadecm se diferenciar um naviodo 
outro, quando um grandc numcro deles se encontram em uma 
mesma area. 

Algumas pessoas podem achar que os combates de 
superficie s3o injustos para com os americanos. Isto visa compen- 
sar a verdadeira situac3o dos americanos durante a guerra, quando 
as unidades de superficie japonesas apresentavam um descm- 
penho bom na guerra. Mais tarde, com a utilizacao do radar pelos 
americanos 6 que a situac3o mudou. 

Para sair vitorioso, voce devcra\ assim como os ameri- 
canos, afundar mais de dois porta-avioes para cada um dos seus que 
for afundado. O principal objetivo dos japoneses era o de destruir 
a froia de porta-avioes americana. Neste estagio da guerra, os 
japoneses estavam preparados para perder dois porta-avioes para 
cada um dos americanos que conseguissem destruir. 

Muito mais poderia ser dito, mas a real dimensao deste 
jogo voce vai perceber ap6s jogar algumas partidas com o auxilio 
do seu manual. Boa sorte. 
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Os Magos do software para MSX 

ENIGMA • STREAKER • GROTTEN • BLACK PIRATE • 

HUNDRA • CAPTAIN SEVILLA l/ll • ARKOS l/ll/lll • FANKY PANKY ■ 

ELITE • DESPERADO • ABADIA • TRANTOR • DUAD • MADMIX • BOP 

NEMESIS • LINKERS SUPER STAR SOCCER • SIR FRED ■ INDIANA 

JONES • CARFIGHTER • VENOM ■ OCEAN "SUB CONQUERER • 

EL MAGO (EDUCAT.) ■ GAME OVER 1 S 2 • ZAIDER - THE PUB • 

STAR FIGHTER • REX HARDEST • MUITOS OUTROS 

Voce avalia um aervico pel* aua eficiencia: 

No6sa qualidade indiscutivel 

Nossa experiencia ........... ... inigualavel 

Nosso prazo entrega „ ,. 24 horas + correio 

N06SO acervo + 2000 titulos 

• Nossa documentacao farta 

Nosso super calaiogo gratis (peca o spu') 

Nossos lancamentos ..._ ^ „ semanalmente 

Nossas promocfies diversas 

Como v#, ningutfm lem mala a ofcracer do que o Mago da Lazzarof. 
E*creva-noe e recebe um brindel Voc4 ad lem a ganharl 

JOGOS Cz$ 300.00 

APLICATIVOS/UTIUTARIOS _ CzJ 1.000.00 j 

LINGUAGENS«OPIA0ORES Cz$ 1.500.00 

OISCO/FITA CzJ 800.00 _ CzJ 900.00 

DESPESAS POSTAIS CzS 300.00 

Enviar cheque nominal cruzado a Carlos Henrique B.Magelhiea. lornecendo o 
maxima de informa90es sobre seu equpamemo e lelelone para um evenlual contalo. 

Caixa Foetal 1955 - CEP 20001 - Rio de Janeiro - RJ 
Tel: (021(248-1575 
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BR 116 - A RODOVIA DA MORTE 



GUILHERME A. L. DA SILVA 



Naval hada Jones c um grande aven- 
lureiro que busca emocoes e perigo incan- 
savelmente. Pensando nisso, o nosso her6i 
foi assislir ao Grande Prcmio de Formula 1 
do Brasil c tcve uma ideiarepentina: roubar 
um carro c sair "rodando" pela BR 116!!! 

Mas como? Navalhada Jones nao 
sabe pilolar um formula 1 ! 

EntSo, voce devera ajuda-Io a con- 
duzir o carro. Lembre-se que Jones 6 
"barbeiro".Portanto, conduza com nervos 
de aco e bala recordes de permanencia na 
rodovia. 

O PROGRAMA 

O programa 6 feito totalmente em 
basic c SCREEN 1 ; mistura textos, sprites 
e caracieres graficos. 

A tela, ou melhor, a pista, se move 
de cima para baixo, obtido por um scroll 



invertido, dando a imprcssao de 
movimento. 

O ruidos do motor e da explosao sao 
produzidos pelos comandos SOUND. 

COMO USAR 

As sctas para esquerda e para direi 
ta controlam a direcao do carroe as setas pa 
ra cima e para baixo a aceleracao. 

Os carros eslao em ordem de difi- 
culdade: 

NIVELl:AIRTONSENA 
N1VEL 2: NELSON PIQUET 
NIVEL 3: MAURICIO GUGELMIN 

VARIAVEIS 

CPSO = nomes dos recordistas 
CD() = distancias recordes 
DDO =auxiliardeCD() 
PP$0 = auxiUar de CP$() 



KM = quilomelros rodados 

TS = tempo 

B IS = bloco grafico 1 

B2$ = bloco grafico 2 

B3$ = bloco grafico 3 

SO = inlensidade do sound 

X = X do carro 

Y = Y do carro 

VL = sem verifica^ao de trombada 

ETO = tabulacao da estrada 

P = cor do carro 

PT = tempo de espera 

DF = dificuldade 

ES = sorlcio 

PL = numero do piloto 

I = contador 

C = stick 

AC = aceleracao 

CX = X do carro em colunas 

EX = X do comcco do acostamento 



10 REM— BR - 116 


CK(0):IFC=7THENX=X-8 


OTO400;ELSENEXT:GQTO41B 


28 REM-fARA MSX 


278 IFC=3THENX=X+8 


400 F0RN=lT06:PP«(N)=CP*(Nt:DD(N)=CD(N) 


7B REM 


288 IFO=1ANDY>8THENY=Y-8:AC=AC+1:SO=SO- 


:NEXT:F0RN=IT05:CP»(N+1)=PP«(N):C0(N+1) 


j*J ncn 


40 REM--BY GUILHERME 


1;60SUB518 


=DD(N):NEXT:LOCATE0,17:PR1NTI;"§ NONE " 


50 REM--14/ 18/1988 


298 IFC=5ANDY<80THENY=Y+8 : AC=AC-1 : S0=S0 


;:1NPUTCP»(I):CD(!)=KN:GOSUB420 


60 REM-+jUARARAPES 


+1:GOSUB510 


410 LOCATE8,21:PRINT"J0GA DE NOVO ?":K$ 


70 GCM , , , 


300 PUTSPRITE1 , ( X , Y) ,PC: IFCSRLIN=10THEN 


=INPUT$(l):IFK$O"N , THEN60T0 118ELSEEN0 


It ntfl 


80 DATASENA,2080,PROST,1088,8ERSER,450, 


VL=0 


420 aS:PRINTTAB(9);"CAMPEONAT0":LOCATE 


PIQUET, 350,GUGELMIM,300 


310 CX=INT(X/B-2):EX=ET(INT(Y/8)+l):IFC 


5,6:PRINT"N01E"iSPC(8) i'DISTANCIA"; :F0R 


90 RESTORE80:FORJ=1TO5:READCP«(J),CD(J) 


X<EX+4ORCX>EX+5THENGOSUB350 


I=1T05:L0CATE5, 10+1 :PRINTCF1( 1 ) ; iLQCATE 


:NEXT 


320 IFK11THEN340 


18, 10+1 !PRINTUSIN6"W#MI";C0( I ) :NEXT:R 


188 DIHET(58) 


330 KM=KM+((10-PT)-DF)+AC:VX=POS(0):VY= 


ETURN 


11B KE YOFF : SCREEN1 , , 0: KM=a : TS=2 : Bl *=CHR 


CSRL1N:L0CATE12,16:PRINTUSING" M#M";K 


430 REMPAINEL 


$(219) :B2$=CHR$(215) :B3*=CHR$(220| :S0SU 


M;:PRINT" to ":TS=TS-.05:LOCATE9,18:PRI 


440 FORI=8TO11:LOCATE0,I:PRINTSTRING*(2 


B438 


NT"CR0NOMETRAGEM" :LOCATE14,20:PRINTUSIN 


9,B2«):NEXT:FORI=12TO21:LOCATE0,I:PRINT 


120 OAT A0801 1800, 0111111 8, 01111110, 0001 


6" • .«t " ; TS : LOCATEVX , VY 


STR1N6$(29,B1»):NEXT:LOCATE0,11:PRINTST 


1888,00811888,11011011,11111111,1101181 


331 IF TS>0 THEN RETURN ELSE BOTO 341 


RING*(29,B3$) 


1 


348G0T0268 


450 LOCATE0,19:PRINTBl$j"l-SENA 2-P10UE 


130 RESTORE120:FORK=BTO7:R£AOPt:St=S$+C 


341 SOUND7,7:SOUND8,15:FORI=1TO1800:NEX 


T 3H3U6ELNIN"|iP$»INPUT*(l)iPL»VAL(Pll 


HR*(VAL('*AB"*-P*)):NEXT 


T:SOUND8,0:PUTSPRITE1, (-8,-8),0 


460 IFPL<1ORPL)3THEN450 


14BSPRITE$(1)=S« 


342 aS:L0CATE5,B:PRINT"Acabou o seu te 


470 ifPL=lTHENP*=" AIRTON SENA - MACLA 


160 S0=I3:I=8 


■po. . .":LOCATE5,10;PRINT"Percorreu:"iKH 


REN ":PC=9:PT=1:DF=1 


170 X=120:Y=80:VL=1 :FORK=1TO22:ET(X)=10 


;" ka.":L0CATE7,21:PRINT"Pressione Espa 


480 IFPL=2THENN=" NELSON PIQUET - LO 


:NEXT:GOSUB250:ET=10:GOSUB510 


co':tt=INPUT$M:IFKt<>' "THEN342ELSE39 


TUS ":PC=10:PT=2:DF=8 


188 COLOR 1,15,PC 





490 IFPL=3THENPt="MAURIC!0 GUGELMIN - M 


198 ES=INT|RN0(-TIME)»(3-DF))+DF 


358 REMBATEU 


ARCH":PO5:PT=7:DF=0 


288 IFES=1ANDEK21THENET=ET+1 


368 IFVLO0THENRETURN 


588 LOCATE0,19:PRINTSTRINGI(58,B1*):LOC 


218 IFES=2ANDET>0THENET=ET-1 


370 PUTSPRITEl,(-8,-8),8:L0CATEC!(,INT(Y 


ATE2,12:PRlNTPi:L0CATE7,14!PRINT* KM PE 


220N=N+1:ET(N)=ET:IFN=11THENGOSUB258 


/8)iPRINT" ";S0UND7,7:S0UND8,15:F0RI=1T 


RCORRIDCS " :L0CATE1 i , 16 jPRINTUSING' Ml 


238 IFNN=1THENFORI=11T01STEP-1 :ET( I )=£T 


OlMiNEXTi 


•#";KM;:PRINT" to " 


(H):NEXT:ET(1)=ET:G0SUB258 


380 SOUND8,0:CLS:LOCATE7,8:PRINT"Voce c 


501 L0CATE9 1 18:PRINT"CR0N0METRAGEM":L0C 


248 GOTO190 


olidiu...":LOCATE5,10:PRINT"Percorreu:' 


ATE14,20:PRINTUSIN6"f.H*;TS:RETURN 


250 LOCATE,0:FORt;j=lTOPT:NEXT 


jKHj* k».":L0CATE7,21:PRINT'Pressicne E 


510 SOUND7,254:SOUND0,1:SOUND1,SO:SOUND 


260 I=I+1:L0CATEET(I):PRINTB2*;82*;B2*; 


spaco" :Kt=INPUT*( 1 ) : IFWO" "THEN380 


6,20:SOUND8,16:SOUND11,255:SOUND12,1:SO 


Bit!" ";B1$;B2$;62»;B2«:NN=1:N=0:C=STI 


398 GOSUB420:FORI=1TO5: IFKM>=CD( I )THEN6 


UND13,13:RETURN 
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JOGOS & HIGH SCORES 



JOGO 


SCORE 


RECORDISTA 


JOGO 


SCORE 


RECORDISTA 


ALIEN 8 


82% 




LAZY JONES 


200.250 




ALPHA BLASTER 


89.235 




LES F1CLES 


100.200 




BARNSTORMER 


279.955 




LEMANS 


42.530 




BATTLESHIP CLAPTON 


97.300 




MANIC MINER 


117.321 




BEAM RIDER 


207.520 




MAXIMA 


211.120 


PEDRO MARIANI 


BLAGGER 


231.520 




MONKEY ACADEMY 


461.200 


ROBERTO T F MORAES 


BOOM 


99.240 




MONPIRANGER 


840.100 




BOULDERDASH 


59.848 




MUTANT 


737 




BOUNDER 


321.624 


BRUNO MURRAT 


NIGHTSHADE 


137.000 




BOXING 


10 




NINJA 


42.750 




BUCK ROGERS 


310.900 




OH MUMMY 


5.030 




CENTIPEDE 


53.795 


ALEXANDRE C GREIG 


OH NO 


76.250 




CHILLER 


42.201 




OILS WELL 


215.700 




CHOROQ 


42.380 




PANIC JUNCTION 


14.919 


ROBERTO T F MORAES 


CIRCUS CHARLIE 


1.198.460 




PASTFINDER 


24.205 




DISK WARRIOR 


1.400.000 




PILLBOX 


2.800 




DOGFIGHTER 


10.100 




PINBALL 


1.240.680 




ELIDON 


94% 




PITFALL II 


199.000 




ERIC AND FLOATERS 


1.844.160 




POLAR STAR 


289.990 


ALBERTO G SANTOS 


FINDERS KEEPERS 


18.323 




PUNCHY 


8.434.070 




FIRE RESCUE 


29.540 




PRICE MAGIK 


12% 


• 


FLIGHT DECK 


7.210 


MARCOS A LACERDA 


PYRAMID WARP 


820.758 




FRUIT FRANK 


21.000 




RIVER RAID 


73.450 




GALAGA 


452.200 


ALEXANDRE C GREIG 


ROAD FIGHTER 


986.675 




GHOSTBUSTERS 


$999,900 




ROLLER BALL 


4.580.120 


BRUNO MURRAT 


GOLF 


28 




SASA 


200.195 


ALBERTO G SANTOS 


GRIDTRAP 


558.120 




SCION 


95.300 




GUNFRIGHT 


$150,000 




SOCCER 


40-0 




HEIST 


384.201 




SPACE WALK 


1.846.200 




HERO 


692.120 




SPOOKS AND LADDERS 


189.930 




HIGHWAY 


339.360 


MARCOS A LACERDA 


STEP UP 


60.250 




HOOPER 


100.050 




.STOP THE EXPRESS 


7.360 




HOTSHOE 


187.575 


PEDRO M FRACT 


SUPER COBRA 


501.100 




HUNCHBACK 


2.700.000 




SWEET ACORN 


6.438.460 




HUSTLER 


8 


ROBERTO T F MORAES 


TENNIS 


6-0 6-0 




HYPER RALLY 


310.100 




THE SNOWMAN 


36.510 




HYPER SPORTS I 


2.050.800 




THE WRECK 


23.975 




HYPER SPORTS II 


500.500 




TIME BANDITS 


9.990 




HYPER SPORTS DJ 


65.532 




TIME CURB 


274.040 




HYPER VIPER 


127.500 




TIME PILOT 


689.000 




INTER. KARATE 


999.999 




TRACK AND HELD I 


266.540 




JET FIGHTER 


214.950 




TRACK AND HELD 11 


500.300 




JET SET WILLY 


120 




TURMOIL 


12.520 




KINGS VALLEY 


5.642.600 




VACUMANIA 


22.340 




KNIGHTMARE 


478.200 




VALKYR 


47.205 
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JOGOS 

NEMESIS 
KNIGHT NINJA 

TIPO- Aventura oriental 
APRESENTACAO- 10 
GRAFICOS- 9 
SOM-9 

INTERESSE-10 
NUMERO DE BLOCOS- 3 
TOTAL GERAL- 9.5 




SKY VISION 

TIPO- Espacial de acao 
APRESENTACAO- 7 
GRAFICOS- 8 
SOM-7 
INTERESSE- 9 
NUMERO DE BLOCOS- 3 
TOTAL GERAL- 7 



EMILIO BUTRAGUENO (FUTEBOL) 

TIPO- Jogo de Futebol 
APRESENTACAO- 10 
GRAFICOS- 9 
SOM-7 

INTERESSE- 9 
NUMERO DE BLOCOS- 5 
TOTAL GERAL- 9 



BOP 

TIPO- Aventura infantil 
APRESENTACAO- 7 
GRAFICOS- 7 
SOM-8 
INTERESSE- 8 
NUMERO DE BLOCOS- 3 
TOTAL GERAL- 7.5 



MAD FOX 

TIPO- Espacial de a?ao 
APRESENTACAO- 7 
GRAFICOS- 7 
SOM-7 
INTERESSE- 7 
NUMERO DE BLOCOS- 3 
TOTAL GERAL- 7 

KIMPO FIGHTER 

TIPO- Aventura oriental 
APRESENTACAO- 8 
GRAFICOS - 9 
SOM-8 
INTERESSE- 8 
NUMERO DE BLOCOS- 1 
TOTAL GERAL- 8 




LADY SAFARY 

TIPO- Aventura na Selva 
APRESENTACAO- 8 
GRAFICOS- 8 
SOM-6 
INTERESSE- 7 
NUMERO DE BLOCOS-4 
TOTAL GERAL- 7 
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CAVERN OF DEATH 

TIPO- Aventura e acao 
APRESENTACAO- 7 
GRAFICOS- 7 
SOM-7 
INTERESSE- 7 
NUMERO DE BLOCOS- 3 
TOTAL GERAL- 7 




!.=»■ 



a*" 




MINDER 

TIPO- Adventure animado 
APRESENTACAO- 10 
GRAFICOS- 8 
SOM-8 
INTERESSE- 8 
NUMERO DE BLOCOS- 7 
TOTAL GERAL- 8 



HUMPREY 

TIPO- Jogo de eslrategia 
APRESENTACAO- 10 
GRAHCOS- 9 
SOM-8 
INTERESSE- 9 
NUMERO DE BLOCOS- 6 
TOTAL GERAL- 9 
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SOS FELINO 


20 SOS FEUItt - (cl Esfera 


430 ' 


640 IFVPEEK(BASE(5)+B+33)=209THENVPOKE8 


48 ' L'opynqht by SChan. 1986 


448 At="o4cecdd":6i="o5cecdd":S=10:T=0: 


ASE(5(+Bf33,32:BEEP:S=SH:GOrQ680 


J0 ' 


fM:E=.75:F=l:L(l)=l:L(2)=6:L(3)=ll;L(4 


650 I FVPEEK ( BASE ( 5 ) +B+32 ) =2B9THENVP0KEB 


d0 . N 1 C 1 A L I Z A R 


)=16:L 1 5)=16: ONINTERVAL=908GOSUB730 


ASE{5KB+32,32:8£EP:S=Stl:GOTQ680 


98 ' 


450 ' 


660 IFVPEEMBASE(5)+B+33|=208ANDS>0THEN 


100 CLEAR500:COLDR15.4,4;KtYDfF:SCREENl 


460 ' C E H A R I 


VP0KEBASE1 5)t8+33,32:S=S-i :FlAY"cl2"ELS 


,2.,0:WIDrH32:C=RND{-n«EJ 


470 ' 


EIFVra>:iBASE(5)*B+33)=288ANDS=0THEN690 


118 ' 


480 ?LAYA«+B*:PLAYAi,B»: IFF! 15THENF=15: 


:60r0688 


120 ' DEFINIR BLOODS BRAFICOS 


E=10 


670 IFVPEEK(BASE(5)+B+32)=208ANDS>0THEN 


130 ' 


490CLS:X=32:Y=159:LOCATE12,10:PRINT"N1 


VP0KEBASE(5)+B+32,32:S=S-l:PLAY"cl2 , ELS 


148 F GR 1 = 384 T0983 : ft= VPEE K .' I ) :B=A0RA/2:V 


V£L";N:FQRI=0TO2000:NEXT;FORI=0TO15STEP 


LIFVPEEK(BASE(5)+R+32!=208ANDS=0THEN698 


PQKEI,8:NEXT 


5:L0CATE2, I :PRINTCHRt(200) ;SP C(26) ;CHRi 


630 PUTSPRITE0,(X,Y),1,0:GOSU8780:GOTO5 


150DATA170,85,170,85,170,85,170,85 


(200) :PRINT;" " ;STRINGt(3,208) ;SPC(24) ; 


70 


160 DATA255 , 239 , 2 19 , 189 , 189, 255,103,2 


STRlN6t(3,200) 


690 INTERVALOFF:LGCATEll,10:PRINT"Fi«i d 


170 DATA36,90,189,24,255,24, 126,153 


500 PRINT" ":STRIN6*(2,200);STRINGi(12, 


e Jogo" 


180 DATA66,189,129, 165,129,153,129, 126 


192);" ";STRINGt(12,192);STRING«(2,200 


700PLAYA$+B*:PLAYA$,B$:FORI=0TO2000:NE 


190 FORI=1536T01543:READA:VPOKEI,A;NEXT 


) :PRINT" ";STRIN6t(13,200);" ";STRING 


XT:L0CATE9,18:PRINT'NovaMnte (S/N)" 


:FORI=160flTO1607:R£ADft:VPOKEI,A:NEXT:Fa 


«(13,200>:PRINTTA8{13);STRIN6i(2,200);" 


718 IFINKEY$O°"MN710 


RI=1664T01679:READA:VP0KEI ,A:NEXT 


,, ;STRINGt(2,200):NEXT 


720 At=INKEY»: IFA*="S"0RA«="5"THENPUTSP 


200 VP0HE8216,97:VP0KE8217,196:VPQKE821 


510 FQRI=640TO767:VPOKEBASE(5)H,219:NE 


RITE0, (-32,-32) :G0TQ448ELSEIFA$="N"0RA« 


9,168 


XT 


= "n " THENSCREEN8 : ENOELSE720 


210 ' 


520 F0RI=2T018:L0CATE15, I :PRJNTSTRING«( 


730 INTERVALST0P:S=S-l:PLAY"al2" 


220 ' B « B E I R 


2 J 192):NEXT:L0CATE13,19:PRINrSTRING1(6, 


740 IFS<0THEN698£LS£T=T+1:6OSUB780:INTE 


230 ' 


192) 


RVALUN:RETURN 


240 DAT A00000001 10000000 


530 ' 


750 ' 


250 DATA0000001001008000 


540 ' PROCE SSAMENT 


768 ' L I F E & TIME 


260 DATA0000111111110000 


550 ' 


770 ' 


270 DATA0800081081008008 


560 INTERVAL0N:6GT0688 


780 INTERVALSTOP:LOCATE0,22:PRINT"Life" 


280 DATA0000001001000000 


570 A=STICK(8):B=(V+1)»4+X/8:IFA=3ANDX< 


;S)" Ti«e"jTj" Nivel'jN 


290 OATA0000000110000000 


224ANDVPEEK(BASE(5)*Bt2)0192ANDVPEEK(B 


790 


300 DATA0000111001110000 


ASE(5)+8+34)O192THENX=X+8:6OTO590 


800 PASSAGEM DE NIVEIS 


310 DATA0001018000101000 


580 IFA=7ANDX>16ANDVPEEK(BASE(5)*B-1|<> 


810 ' 


320 DATA0001010000181000 


192ANDVPE£K(BASE(5)+B+31)0192THENX=X-8 


820 1FT=10THENPUTSPRITE0, (-32,-32) :T=0: 


330 OATA0001010000101000 


590 JFX<=16ANDY>-lTHENX=32:Y=Y-40 


N=N+1:E=£U75:F=F+.5:FORI=8TO1000:NEXT 


340 DATA0001011111101000 


600 IFX>=224ANDY<159THENX=208:Y=Y+4fl 


:GOTO480 


350 DATA0001010000100000 


610 INTERVALST0P:f>RND(l)tl5:lFCX.75THE 


830 INTERVALON:RETURN 


360 DATA0000011111100000 


NL0CATEINT(RND(1)»11+4),L(INT(RND(1)M+ 


840 ' A$,B$ - HUSICA 


370 DATA000001100U00000 


1) ) :PRlNTCHRt(209) ; ELSE 1 FC< 1 THENLOCATE I 


850 ' S - LIFE T - TIME 


380 DATA0000011001100000 


NT(RN0(l)»lltl7),L(INT(RND(l)t4+l)):PRI 


860 ' E,F - NUMERO DE INSETOS 


390 DATA808U11001111008 


NTCHR$(2091; 


870 ' N - NIVEL DE JOGO 


400 FORI=0TO15:READA$:B«=B*+CHR*(VAL("t 


620 C=RND(1)«15:IFC<ETHENL0CATEINT(RND( 


880 ' LU-5) - VERTICAL 


B"+LEFT*(A*,S) ) ) :C«=C«+CHR«<VAL<"«B"+RI 


l)tll+4),L(INT(RND(l)t4+l)):PRINTCHR«(2 


890 A - VALOR DAS SETAS 


BHT»(A*,8))):NEXT:SPRITE$(0)=W+C* 


08);ELSEIFC<FTHENLOCATEINT(RND(l)*lltl7 


900 ' B - VALOR NA VRAM DA P0- 


410 ' 


),L(INT(RND(l)t4+l)):PRINTCHW(208); 


SICAO DO BOMBEIRO 


420 ' DEFINIR VALORES INICIAIS 


630 INTERVALS 
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JOGO DA MEMORIA 



10 REM Joqo da Mei«oria 

28 REM Guilhen* A. L. da Silva 

30 REM 22/06/88 

40 REM GUARARAPES - S.P. 

50 REN Para a linha MSX 

60 CLEARlBBBiJfcl 

70 SCREEN, ,0:KEY 0FF;CCL0R 15,12,10 

80 STOP OH 

98 ON STOP 60SUB 1400 

100 REM JOGO DA MEMORIA 

110 GOTO 390 

! 20 DIM C«(16),A«(16), 81(161, F«(8) 

130 Fifl)=C8R$(l)+CHR«(76)!Ft(2)=CHR$(i 

)+CHR»(66):F»(3)=CHM(l|*CHR«(69):F«(4) 

=CHR$(l)+CHRt(7B) 

140 F<(5)=CHRt(l)+CHM(67):F*(6)=CHR$(l 

)*CHR«(6B):F$(7)=CHR*(1)*CHR*(79):F*(8! 

=CHR»|l)tCHM(75) 

150 SCREEN1 

170 PRINTTAB(5)" Jogo da Benoria " 

190 LOCATE 0,5 

200PRINTTAB(8)"!-!-!-!-!' 

210 F0R0=1T03 

220 PRINTTAB(8)*f ! } ! J" 

230 PRIMnA8(8)V-!-!-!-!" 

240 NEXT 

258 PRINTTAB(8)"! MM" 

260 PRINTTAB(B) "♦-+-♦-+-+" 

270 LOCATE0,15:PRINT , Qualquer tec la par 

a cMefar." 

280 At=INKEY*:JF A«=" THEN GOTO 280 

290 LOCATE 0,18:PRINTTAB(5)"j"Estou calc 

ulando":60SUB 1248 

300 FOR 1=1 TO 8 

310 A=INT(16IRND(-TIMEW) 

320 IF AOB THEN 330 RSE 310 

330 IF B»(A)<>"" THEN 310 ELSE M(A)=FJ 

(I) 

340 B=INT(16tRND(lB)+l) 

350 IF BOA THEN 360 aSE 340 

360 IF B$(B)<>" THEN 340 ELSE B*(B)=F$ 

(I) 

370 NEXT 

380 Z=B:F0R!=1 TO 16:A*(Z)=B$(I):Z=Z+1: 

NEXT:RETURN 

398 REM 

400 QOSUB 530:REM N.JOG. 

410 GOSUB 710:GOSUB 808:REM TELA 

420 GOSUB 860:REM INICIC 

425 GOTO 420 

438 IF P(1)>P(2) THEN JO=l 

440 IF P(2)>P(1) THEN J0=2 

450 FORU=1TO1080:NEXT:CLS:LOCATE8,21:PR 

INTTAB(5)' Jogo da leiiioria ':PRINT:PRIN 

T:PRINT:PR!NT:PRINT 

460 IF P(2)=P(1) THEN PRINTTAB(10)"EMPA 

T£!!!":GOT0 480 

470 PRINT'Vencedor(a): u ;N«(J0) 

430 PRINT:PRINT"COM PLACAR DE";P(J0)| 

"PARES." 

490 PRINT:PRINT:PRINT:PRINT:PRINT;PRINT 

:PRINT:PRINT:PRINT :PRINT 



500 GDSUB1240:LOCATE0,19:PRINT"JO6AR OU 

TRA VEZ?|S/N)":A»MNKEY«:IF At="" THEN 

588 

510 IF A*0"S" THEN END 

520 CLS:RUN 

538 REM NS JOGADORES 

540 as 

560 PR1NTTAB(5)' Jogo da newria " 

580 PRINT:PRINT"8uantos Jogadores" ; : IMP 

UTJ 

590 PRINT:PRINT:PRINT"Oual o now do jo 

gador 1": INPUT W(i) 

688 IF J=l THEN PRINT:N«(2)="CMputador 

-MSX":G0T0 620 

610 PRINT'Oual o now do jogador 2'sINP 

UTN$(2|:GOTO640 

620 PRINT'Oual o nLvel?":PftINT:PRINT:PR 

INTTAB{5)"8.Principiante':PRINTTAB(5)"3 

.Aprendiz":PRINTTAB(5)"6.l1estre , :PRINTT 

AB(5)"9.Profis5ional':PRINTTAB(5)'12.Co 

bra";PRINTTAB(5)'15.Expert' 

630PRINT:[NPUT"Escolha:';8N 

640 GOSUB 120 

650 L0CATE8,15:PRINTSPC(32J 

660 LOCATE 0,15 

670 PRINT N1*,N2* 

680 PRINTUSIN6'Placar:»r;Pl; 

690 PRINTUSING' Placar:ll , jP2 

708 RETURN 

710 REM TELA 

720 COLOR 15,4,10 

730 LOCATE0,18:PRINTSPC(64):LOCATE0,18: 

PRINT" Preste atencao nos pares." 

748 IF BN>=15 THEN RETURN 

750 N=8:F0R LX=9 TO 15 STEP 2 

760 FOR LY=6 TO 12 STEP 2 

770 LOCATE LX,LY:PRINTA«(N) 

788N=N+1 

790 NEXT:NEXT:FOR TP=1TO3800:NEXT:RETUR 

N 

808 N=8;F0R LX=9 TO 15 STEP 2 

818 FOR LY=6 TO 12 STEP 2 

820 NMHEX«(N) 

830 LOCATE LX,LY:PRINTW 

840N=N+1 

850 NEXT;NEXT:RETURN 

860 REM JOGO 

870 LOCATE0,18:PR!NTSPC(64):LOCATE0,18 

888 PRINT"Jogador';J0;"(2 nu*>ros)*j:IN 

PUTH«:W=MID«(HJ,2,1):0$=MID»(HI,1,1) 

898 IF Ht="" THEN 870 

900 TI=VAL("SH"+Q») 

918 TP=VAL( 'WW) 

928 ON TI+1 GOSUB 1088,1898,1180,1110,1 

120,1138,1148,1158,1168,1170,1180,1190, 

1200,1210,1228,1238 

938 PX=X:PY=Y 

948 ON TP+1 GOSUB 1880,1098,1100,1110,1 

128,1138,1140,1150,1160,1170,1188,1198, 

1200,1210,1228,1238 

958 LX=X:LY=Y 

960 PLAY"V15L16EF6":L0CATE PX,PY:PRINTA 



«(TI) 

978 LOCATE LX,LY:PRINTA»(TP) 

988 IF TI=TP THEN L0CATE8,18:GOT0 880 

990 IF A«(TIK*(TI) AND A»(TP)=C$(TP) 

GOTO 1010 

1000 IFA»(TI)=A$(TP)THENLOCATE0,19:PRIN 

T"0 jogador"jJO;"conseguiu":P(JO)=P(JO) 

♦l:LOCATE0,16:PRINTUSING"PLACAR:«"iP(l 

IjiPRINTUSING" PLACAR:M';P(2):A«(T 

1)=' ":A»(TP)=" ":C»(TI)=A*(TI):C«(TP)= 

Ai(TP):IFP(l)*P(2)>=8THEN6OTO430ELSEPLA 

Y'V15L8CDL16EFGL8AB" 

1810 FORI=lTO100BiNEXT:GOSUB 300 

1828 IF J0=2 AND J=l THEN J0=1:G0SUB 87 

8 

1838 IF JO=l AND J=l THEN JO=2:60SUB 12 

78:G0SUB928 

1848 IF J=l THEN RETURN 

1050 IF J0=1 THEN JO=2:B0TO 870 

1060 IF J0=2 THEN J0=1 

1070 RETURN 

1088 X=9:Y=6:RETURN 

1090 X=9:Y=8:RETURN 

1100 X=9:Y=10:RETURN 

1110 X=9!Y=12:RETURN 

1128 X=11:Y=6:RETURN 

1138 X=11:Y=8:RETURN 

1148 X=11:Y=1B:RETURN 

1158 X=ll!Y=12:RETURN 

1160 X=13:Y=6:RETURN 

1170 X=13:Y=8sRETURN 

1180 X=13:Y=1B:RETURN 

1198 X=13:Y=12iR£TURN 

1280 X=15:Y=6;RETURN 

1210 X=15:Y=6:RETURN 

1220 X=15:Y=10:RETURN 

1238 X=15:Y=12:RETURN 

1248 REN MUSICA 

1250 PLAY"V15T120L6M5B00S11O5EEFSGFEDCC 

DEEDDEEF6GFEDCCDEDCCLBDECDEFECDEFEDCDGE 

EF8GFEDL5CCDEDCC" 

1260 RETURN 

1270 F=0:R£M JC6ADA CONP. 

1280 F=0:FOR K=l TO BN 

1290 LOCATE0,18:PRINTSPC(64) 

1388RI=INT(15»RND(1)) 

1310 IF BN>2 AND C*(RI)=M(RI) THEN 138 



132BRP=IN7(15»RND(-T1ME)):IF RP=RI THE 

N 1328 

1338 IF F>BNI2 THEN 1388 

1348 IF BN>2 AND CI(RP)=M(RP) THEN F=F 

+1:G0T0 1328 

1350 IF M(fiI)*A$(RP) THEN 1380 

1360 IF BN=8 THEN 137B 

1370 NEXT K 

1380 LOCATE0,lB:PRlNT'Eu joguei 05 ntke 

ros: "jHEX«(RI);HEX«(RP) 

1390 TI=RI:TP=fiP:J=l!J0=2:RETURN 

1480 SCR£EN0,,l!PRINT"OESISTIU. E' FI 

N!':KEY0N:COLOR 15,1,1:END 



BOLICHE 


28 ' BOWLING - (c) by Esfera 


RI=784T0767:VPQKEBASE(5)+I,184:NEXT:L0C 


828 IF(C=3ASD(F=4ORF=3))0R(C=2AND(F=6OR 


38 ' Copyright 1988 by SChan 


ATE8.8 


F=5))THENY=138+2*8:Vl=8a+Z*8:E=3:H»='6 


58 ' 


44B L0CATE28,16:PRIMTCHR$(195);CHRt(194 


Bottles":N=6:GOT092B 


68' IN1CIALIZA 


):L0CATE27:PRINTCHM(194)iCHR«(196))CHR 


838 IFC=4AND(F==20RF=1)THENY=138:Y1=8B:Z 


7B ' 


♦(194) 


=1:E=1:H»=*5 Bottles":N=5:G0T092B 


88 CLEAfi5BB:C0L0Rl,18,lB:KEY0FF:SCREENl 


450 L0CATE27:PRINTCHR$(194)iCHR*(196)iC 


840 IFC=2AND(F=30RF=4)THENY=138+ZI8:Y1= 


,,B:HIDTH32;DB r USR=«H41:DEFUSRi=«442 


HRt ( 194 1 :L0CATE28:PRINTCHR«( 197) ;CHR«( 1 


80+Zt8:E=2:N«="4 Bottles":N=4:6OTO920 


98 ' 


94):60SUB1B5B:A4JSR1(B) 


858 IF(C=3AND(F=2ORF=l))0R(C=lAND(F=5OR 


106 ' DEFINE 6 L C S 


468 F0RI=8T02:PUTSPRITEI, (-32,-2) :NEXT: 


F=6))THENY=138+Z«18:Y1=8B+ZUB:E=3:H»=" 


ue ' 


L0CATE21,12:PRINTSPC(1B); 


3 Bottles" :N=3:G0T0928 


128 BEEP : PL AY "L7V1 504DCDDCC03BB04FEFFGF 


470 IFINKEYtO"THEN47B 


868 IF(C=2AND(F=10RF=2))0R(C=1AND(F=30R 


DDFEFFGFD0FF6EEaT• 


488 ' 


F=4))THEHY=138+ZI8:Y1=88+ZI8:E=1.5:M=' 


138 F0RI=384T0983:VP0KE1,VPEEK(I)0RVPEE 


498 ' E S C L H A RUNG 


2 Bottles':N=2:S0T0928 


K(I)/2:NEXT 


58B ' 


87B IFC=lAND(F=10RF=2)THENY=138tZtlB:Yl 


148 DATA17B,B5,17B,85,17a,85,17B,B5 


518 C=8:LOCATE14,12:PRINT" ":L0CATE6,12 


=8B+Z»1B:E=1:«=" 1 Bottle" :N=1:60T0928 


158 0ATA1,3,6,12,25,51, 183,287 


:PRINT" (' :FQRX=8T0152STEP2:PUTSPRI TE1 , ( 


888 Y=138:FORX=8T0239STEPF/2+l:PUTSPRIT 


168 DATA12B,192 t 96,4B,152,204,238,243 


X,87),l,l 


EB,(X,Y),1,B:PUTSPRITE2 ! (88-(138-Y),7B- 


178 0ATA255,195,153,165,165,153,195,255 


520 IFINKEY*=" "THEN568 


1/51,1,1 


188DATA255,255,255,255,255,195,185,165 


530 NEXT:F0RX=152T08STEP-2:PUTSPRITE1,( 


898 Y=Y+Z:IFZ=.5THENIFY>=DTHENY=D 


198DATA165,185,195,255,255,195,185,165 


X,87),l,i 


908 IFZ=-.5THENIFY<=DTHENY=D 


288 1^165,185,195,255,255,255,255,255 


54B IFINKEY«=" "THEN568 


918 NEXT:60T097B 


218 DATA255 , 2 55 , 255 , 255 , 255 , 255 , 255 , 255 


.558 NEXT:G0T0518 


92B F0RX=8T022BSTEPE:PUTSPRITEfl,(X,Y),l 


220 DATA255,153,153,153,153,153,153,153 


. 560 FORI=BT01B8B:NEXT:IFX<B4ANDX>76THEN 


,8:PUTSPRITE2,(Y1,7B-X/4.5),1,B:NEXT:PL 


238DATA255,249,249,249,249,249,249,249 


C=4 


AY'sl W08tl481 12cecfeddcc " :P=P+N:S=S*N 


248 DATA68,126,251, 249,249,251, 118,68 


578 IF(X<=76flNDX>68)OR(X>=84ANDX<92)THE 


938 L0CATE21,12:PRINTM$ 


258 DATAe, 16,16,16, 16, 56, 124, 254 


NC=3 


948 ' 


260 F0RI=1472T01479:READA:VP0KEI,A:NEXT 


580 IF(X(=68ANDX>68)0R(X>=92ANDX<1BB)TH 


958 ' N V N I V E L 


278 F0RI=1536T01591:READA:WOKEI,A:NEXT 


ENC=2 


968 ' 


280 REST0RE218:F0RI=16BBT01623:READAiVP 


590 IF(X<=6BANDX>=52)0R(X>=1BBANDX<=18B 


97B IFB=1THENB=8:GOT0988ELSEB=B-1:GOSUB 


OKEI,A:NEXT 


)THENC=1 


185B:F0RI=8T01BB8:NEXT:G0TO46e 


290 FORN=BTC1:A*=":FORI=BT07:READA:M= 


688 IFX>B4THEND=15B:Z«.5 


988 BEEP:PLAY"V12L16CDE05CDE03CDEDC02BB 


AWH«(A):NEXT:SPRITEt(N)=A$:NEXT 


618 IFX<76THEND=128:Z=-.5 


03CC04CDE0CO3B804CC" 


300 VPQKE8215,113:VP0KE8216,M:VP0KE82 


628 L0CATE6,12:PRINT" ":L0CATE14,12:PR1 


998 60SUB1B5B:IFP>=QTHENL0CATE6,28:PRIN 


17,31:VP0KE8218,22:VP0KE8219,241 


NT")" 


T'QUALIFICATION REACHED": FOR I =BT02B8B:N 


310 ' 


630 IF1NKEYI<>""THEN638 


EXT:LOCATE6,28:PRINTSTRIN6*(21,219):Q=Q 


320 ' VALORES 1NICIAIS 


640 ' 


+1B:P=8:B=8ELSE118B 


330 ' 


65B'ESC0LHA POWER 


1BB8 IF9>5BTHENB=B+((Q-5B)/1B) 


340 B=8:S=2B:P=B:S=B 


660 ' 


1010 6OSU81050:GOTO460 


350 ' 


670 F=8:F0RX=8T0152STEP2:PUTSPRITEi,(X, 


1020 ' 


36B'DESENHA TELA 


87),1,1:IFINKEY«=* "THEN780 


1B3B ' P L A C A R 


370 • 


680 NEXT:F0RX=152T08STEP-2:PUTSPRITE1,( 


104B ' 


380 A=USR(B):LDCATEB,B:PRINTSTR1NG*(21, 


X,87),1,1:IFMEY$=" "THEN700 


1858 L0CATE22,B:PRINT'Bo*ling I":L0CATE 


184) :FORI=0TO8:PRINTCHR«( 184) ;SPC(19) ;C 


690 NEXT:GOTQ678 


21,2:PRINT"0uali , i0:L0CATE2i,4:PRINT"Po 


HR*(184):NEXT:PRINTSTRJN6$(21,184) 


700 IFX>148THEHF=6 


int"iP:LOCATE21,6:PRJNT , Balls , ;B 


39B A*=STRIN6t(7,219):L0CATEl,l:PRINTA« 


71B JFX>13BANDX=<14BTHENF=5 


1B6B L0CATE22,8:PRINT"-Score- , :L0CATE21 


;STRING»(5,20B);M:LOCATEl,2:PRINTA$jCH 


720 IFX>12BANDX=<138THENF=4 


,9:PRINTSPC(11 ) j:L0CATE21,9:PRINTS; :RET 


R*(282);STRINGt(4,281);A« 


738 IFX>11BANDX=<12BTHENF=3 


URN 


480 F0RI=5T017STEP2:L0CATEl:A=(2B-(It2) 


748 IFX>18BAN0X=<118THENF=2 


1878 ' 


>/2:PRINTSrRIN6«(A J 219)iCHR«(192);STRIM 


758 IFX>=90ANDX=<1BBTHENF=1 


1088 ' 6 A M E OVER 


G*(I ,198) ;CHR*(193) ;STRING*(A,219) .-NEXT 


760 ' 


1898 ' 


418 L(3CATE,li:PRINTCHR«(184);STR!NGt(19 


770'PROCESSAMENTO 


UBB LOCATEll,2B:PRINT"6ANE OVER 


,219);STRIN6t(12,184);"cour5B p 


780 ' 


ill! BEEP:PLAY"V15CDEC03B04C" 


ower";CHR*(184);SPC(lB)iCHR«(lB4); 


798 IFCMAND(F=60RF=5)THENY=138:Y1=88:E 


1128 IFINKEY«<>"THEN112B 


420 PRMSTR!NG*f32,184);:At=CHR$(184)+ 


=4:W=' Strike" :N=10:8OTO920 


1138 IFINKEY*="'THEN1138ELS£348 


STRING«(38,219)tCHM(184):M=CHR«(184)t 


888 IFCMAND(FMORF=3)THENY=138:Y1=80:E 


1148 ' 


STRINW(38,198)+CHR*(1B4) 


=2:H*="8 Bottles" :N=8:S0TQ928 


1158 ' S - SCORE B - BALLS 


438 F0RI=8T01:PRINTM;:NEXT:FQRI=8TQ3iP 


818 IFC=3AND(F=60RF=5)THENY=138+Z»4:Y1= 


1168 ' - QUALIFICAMC 


RINTB$; :NEXT:F0Rl=8T0i:PRINTA*; :NEXT:F0 


88+Zt4:E=4:M*="7 Bottles" :N=7:Q0T0928 


1178 ' P - POINTS C - RUMO 
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IPRECO ESPECIAL ATE'l5. 12. 88 








DESEJO EFETUAR A ASSINATURA 
DA REVISTA CPU PELO PERIODO 
DE SEIS MESES. 










PARA TAL, ESTOU ENVIANDO CHEQUE NOMINAL 
A AGUIA INFORMATICA, OU VALE POSTAL 
(PAGAVEL NA AGENCIA COPACABANA), NO 
VALOR DE Cz$ 4.000,00 (QUATRO MIL CRUZADOS). 

CPU 

LEIA E ASSINE ! 


NOME: 


ENDERECO: 


DADOS DO EQUIPAMENTO : — 
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IPRECO ESPECIAL ATE 15. 12. 88 








DESEJO EFETUAR A ASSINATURA 
DA REVISTA CPU PELO PERIODO 
DE SEIS MESES. 










PARA TAL, ESTOU ENVIANDO CHEQUE NOMINAL 
A AGUIA INFORMATICA, OU VALE POSTAL 
(PAGAVEL NA AGENCIA COPACABANA), NO 
VALOR DE CzS 4.000,00 (QUATRO MIL CRUZADOS). 

^\ ^> 1 1 






CIDADE : ESTADO : 

DADOS DO EQUIPAMENTO : — 
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Nossos livros podem ser encontrados em livrarias e lojas de computacSo. Se o seu livreiro ou 
lomecedor habitual nao os tiver disponfveis, enlre em contato conosco pelo lelefone (011) 843-3202. 

Se voce nao estei recebendo seu boletim gratuitamente pelo correio, ou tern algum amigo que 
gostarla de recebe-lo, nao deixe de enviar o cupom abaixo a EDITORA ALEPH - C.P. 20707 - CEP: 
01498 - SAO PAULO-SP. 

NOME: , 

END.: 

CEP: CIDADE: UF: 

TEL: ( ) MICRO(S) QUE POSSUI: 



Comapalavra,um Expert: 




Se voce ainda nao me conhece, tenho certeza de que ja ouviu 
falar muito a meu respeito. 

Sou Expert MSX, o micro projelado e construfdo pela ma- 
quina mais perfeita do mundo: o homem. Com toda a tecnolo- 
gia e vanguarda de quern sempre pesquisou e evoluiu para tor- 
nar a vida do homem muito melhor: a Gradiente. 

A imagem e semelhanca da Gradiente, sou um pioneiro. 
Meu design, moderno e professional, inaugurou um estilo. E ate 
hoje eu sou o unico a ltie oferecer teclado separado do console. 
Tenho 3 processadores, processo intormacoes 3,5 vezes mais 
rapido que meus concorrentes e meus arquivos sao compatfveis 
com IBM-PC*. 



Claro! Todo homem quercrescer nos negocios e na familia. 
E quando isso acontece eu continuo la, litil e pratico, ao lado 
dele. O melhor testemunho de minha qualidade e o tempo de 
garantia que me acompanha: o maior que voce pode encontrar. 
E para sua comodidade, tenho tambem a maior rede de assisten- 
cia tecnica do pais, dez vezes superior a qualquer outra marca. 

Entre softwares, tudo que voce imaginar em aplicativos e jo- 
gos eu aceito, entendo e decifro. 

E como se tudo isso nao bastasse, existem varios perifericos e 
livros disponfveis no mercado feitos especialmente para mim. 

Expert MSX da Gradiente. 

Conte comigo. 



XPERT 



re?l ©gradiente 



* Marci. registrada da IBM. 



